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Preface to Revision 4 



This revision represents a change in the intended purpose of this document. 
Namely, material which is really relevant to the operating system instead 
of to Fortran, is to be published separately. Enough operating system infor- 
mation has been left here to enable simple Fortran runs to be set up and 
interpreted, but, for example, detailed descriptions of operating system 
control statements have been left out. 

A second change in intention is that the Guide no longer purports to des- 
cjfifce compilers other than RUN. The Guide to Computer Center Services - con- 
tains pointers to documentation of other available compilers, such as FTN 
and AID. 

As to the details of the changes, users familiar with the previous edition 
will find that chapters 1-10 and 12 contain only minor revisions and correc- 
tions. Chapter 11 has been greatly expanded to provide an index of all sup- 
ported functions and subroutines available on the standard system library to 
users of RUN. Chapter 13 has been tailored more closely to the needs of 
Fortran users. Chapters 14-17 have been extensively reorganized into the new 
Chapters 14 and 15. The control statement descriptions and deck setups for- 
merly contained in Chapter 15 are now published separately, and the infor- 
mation about FTN in Chapter 14 has been eliminated; otherwise, the former 
material has been retained, although in new locations. The old Appendix B 
(Fortran IV incompatabilities between the IBM 7094 and the CDC 6400) has 
been eliminated as have been all references to the 7094 and Fortran II. A 
new Appendix B lists known RUN bugs of a more or less permanent nature. 
Appendix C has been eliminated and the relevant material is now contained in 
Chapter 11. 

Preface to Revision 5.0 

This revision is intended to bring the manual up to date for fall 1974. Due 
to the exigencies of paper shortages, the use of colored sections has been 
eliminated. 

Changes in this edition are numerous and distributed throughout the text. 
Most of the changes are by way of clarifications rather than changes of 
specification so that most of the information in the preceding edition is 
still applicable but must be used with caution. Substantive changes appear 
particularly in chapters 11 and 14. 
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Introduction 



Fortran in general and RUN Fortran in particular 

The Fortran programming language is a widely available high-level computer 
language which is useful for expressing the solution to a wide variety of 
problems. A special translator program (known as a compiler) accepts, as 
input, programming statements written in Fortran and generates a correspond- 
ing sequence of instructions in the particular 'machine language 1 acceptable 
to the computer being used. 

Ideally, Fortran exists independent of any particular computer or compiler. 
Unfortunately, many different Fortran compilers for different computers have 
been developed by different groups at different times, so that different ver- 
sions of Fortran have inevitably evolved. Fortran programmers should be 
aware that the American National Standards Institute, (ANSI for short) has 
specified a 'standard' Fortran (see USA Standard FORTRAN X3. 9-1966) which 
contains only those elements of the language common to most existing com- 
pilers. Thus, anyone developing a program which he may wish to operate in 
anything other than the current Computer Center environment should consider 
ANSI Fortran and use only ANSI standard features in his program. However, 
most compilers deviate in some respects from the standard with both exten- 
sions and restrictions being common, so that adherence to the ANSI standard 
does not eliminate, but only minimizes, the conversion problems encountered 
when going from one computer (or compiler or installation) to another. 



This Guide describes the Fortran language as it is accepted by a particu- 
lar compiler, the RUN Fortran Compiler. 

Organization of this Guide 

This Guide attempts to incorporate all information relevant to writing and 
running programs in RUN Fortran at the Computer Center. The approach is 
as tutorial as is practical, with many examples and much explanatory text. 
However, there are places where the desire for a complete reference docu- 
ment, combined with lack of time, have resulted in a presentation which 
is probably not accessible to the novice. Chapters 13 and 15 and the 
appendices are mostly of this type, and they are probably best regarded as 
reference material for the already knowledgeable. Even the more tutorial 
Chapters 1-12 do not constitute a text and a novice programmer may wish 
to consult one of the standard texts: 

Organick, E.I., A FORTRAN IV Primer, Addison-Wesley , 1966 
Lecht, C.P., The Programmer's FORTRAN II and IV , McGraw-Hill, 1966 
Hull, T.E., Introduction to Computing , Prentice-Hall, 1966 
Didday, R.L. and R.L. Page., FORTRAN for Humans, West, 1974. 
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The Guide is divided into several sections for easy reference. The first 
sections describe the RUN Fortran language and later sections give informa- 
tion relevant to actually running programs written in RUN Fortran. 

Chapter 1-12 describe the RUN Fortran language and library. 

Chapter 13 describes how information is structured in the 6400 computer by 
the operating system. Familiarity with this information is not neces- 
sary for most Fortran programs, but may be useful in cases where spec- 
ialized input or output is performed and is essential for optimizing 
program performance when much I/O is to be done. 

Chapter 14 describes how to set up an actual run on the computer and repro- 
ces and explains the output for a sample job. This information is 
mainly of use to the novice, but much useful information appears here 
which is not explicit anywhere else. 

Chapter 15 gives miscellaneous information of a more or less esoteric 

nature about RUN Fortran. It also contains a food deal of 'folklore' 
which defied organization and for which no other place could be found. 

Glossary gives definitions for some commonly used computer terms. 

Appendices give details on how quantities are represented internally and 
how arithmetic is performed on the 6400 (Appendix A) and lists known 
bugs in the RUN compiler (Appendix B). 

An Index is last. 

Other documentation 

A knowledge of material in the Guide to Computer Center Services is neces- 
sary for any utilization of the Center's facilities. It contains such use- 
ful items as where the computer is, how to get access to it, how much it 
costs, etc. It also contains a key to other Computer Center publications 
and facilities. These include other Fortran compilers, such as AID, For- 
tran Extended (FTN) , and facilities of the operating system over and above 
those necessary for the straightforward use of RUN Fortran. 

The other documents listed below also contain material of interest to users 
of RUN, but are not 'required reading': 

CALIDOSCOPE Control Statements 

OLDMSG 

Computer Center Newsletters 

These and other useful documents are available in the Computer Center 
Library, 216 Evans Hall. 
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Textual Notation 

The following notation conventions have been adopted in the body of the 
text and in examples: 

Numbers subscripted with 8, 10, and 2 indicate, respectively, octal, 
decimal, and binary representations, thus: 
62 1Q = 76 8 = 111110 2 . 

The symbol 0^ (zero underlined) indicates, in internal character repre- 
sentation, a binary zero (all zero bits), not the BCD character zero. 

Where necessary for the sake of clarity, the letter is written as 
to distinguish it from zero. 

Where blanks need to be made explicit, they are indicated by the lower 
case letter b. 

Updating 

As errors are found and corrected or modifications are made to the 
system, the necessary changes are made to subsequent printings of 
the RUN Guide. Unless a major revision is made which obsoletes the 
previous edition, change lists or replacement pages will be available 
from the Computer Center Library. Points where revisions have been 
made are indicated by vertical bars in the margin of the page. Pages 
which have been revised since an edition was issued are identified with 
the date of the last revision. 
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FORTRAN/ PROGRAMMING 



U.1 

WHAT IS 
FORTRAN? 



FORTRAN is a problem- solving tool, a language which allows 
man to communicate with a computer without being forced 
to learn "machine language", the special code to which a com- 
puter responds. FORTRAN is a problem-oriented language; 
that is, it closely resembles the language naturally used 
in stating scientific and engineering problems. This allows 
the computer user to focus his attention on the definition 
of his problem and upon a plan for its solution. 

FORTRAN is both a language and a compiler . As a language 
it is largely machine-independent. That is, it can be recog- 
nized by a large number of different computers regardless 
of their internal workings. 

As a compiler, FORTRAN is a translator for a particular com- 
puter; that is, it is a computing procedure which will accept 
the FORTRAN language and convert it to a form usable directly 
by the computer. Because computers differ in internal char- 
acteristics, the interpretation of various specifications in 
the FORTRAN language may vary from computer to computer. Since 
a FORTRAN compiler is also a program, it may be designed to 
meet other criteria besides the language specifications, such 
as speed of translation, which may -restrict the language. 
These reasons lead to differing versions of the FORTRAN 
language. This document describes a particular version of 
Fortran available at the Center, namely RUN Fortran. 

One should remember that FORTRAN is not the natural language 
of the scientist or engineer, nor is it the natural language 
of the computer. Rather it is a compromise between the two, 
with a form composed of a set of symbols and rules that can 
be translated into the basic language of a computer. It is 
less ambiguous and more rigid in form than a natural language. 
It is also much smaller in scope, since the set of orders one 
is able to give a computer is small. 



7.2 

A FORTRAN 

SOURCE PROGRAM 



The syntactic units of the Fortran language, the "sentences", 
are called statements. The rules for constructing these 
statements are described in Chapter 1-10. 
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A- source program is a sequence of statements, arranged line 
after line, that specify a step-by-step procedure for solving 
a problem. This procedure is usually interpreted and acted 
on by the computer (i.e., executed ) in sequential order, 
just as English sentences are read in sequence. 

The types of statements which make up the program (and the 
language) can be grouped according to the components of the 
computer or compiler which they instruct. 

The syntax ("grammatical rules") for each type of statement 
is described in the indicated chapters of this Guide: 

Declarations instruct the compiler itself, providing infor- 
mation that enables it to translate other statements pro- 
perly. They assign space in memory, structure groups of 
statements into subprogram units , and edit the information 
entering or leaving the computer (Chapters 5, 7, and 9). 

The remaining statements describe a procedure the computer is 
to perform, and are called executable statements. 

The arithmetic and logical statements define the basic com- 
putational steps for most programs and assign new values 
to variables in memory (Chapters 2-4) . 

Input-output (I/O) statements instruct one of the input- 
output devices attached to a computer. They usually call 
for data read into the computer from punched cards or for 
printing results (Chapter 10). 

Execution Sequence Control Statements are used to alter the 
sequential mode of operation. Often values which have been 
computed are used in deciding which sequence of instructions 
is to be carried out (Chapter 6). 

7.3 

PROBLEM SOLUTION 

USING FORTRAN To solve a problem on a computer by the use of the Fortran 

language is a multi-stage process. The first two stages 
are the problem definition and the analysis of a means of 
solving it. The computer must be provided with a step-by 
step method for reaching the answers. (A computer has no 
intuition; each decision or calculation must be described 
explicitly . ) 

In the third stage this procedure is written ( coded ) using 
the Fortran language statements. As the coding proceeds, 
more problem analysis may have to be done in order to 
clarify ambiguous areas. 



1-2 



The coding stage produces a source program which is 
usually presented to the computer in the form of punched 
cards or through a keyboard terminal. 

In the fourth stage, the computer first executes the Fortran 
compiler with the source program as its input data. Next, 
the user's subprograms are combined with each other and with 
any required library subprograms by a program known as a 
loader. Finally, the computer may execute the procedure 
described by the source language statements, using any pro- 
vided data. The calculated answers are usually printed by 
the computer. 

In the final stage, the results must be scrutinized by the 
programmer. If errors are found, recoding and/or redefinition 
of the problem must be done. The execution and checking 
stages are known as testing . The program may be corrected 
and tested many times before a finished product is achieved. 

A sample problem might be to find the real roots of the quad- 
ratic equation ax2+bx+c=0 . 

Definition and Analysis : The coefficients will be read 
from a data card. To so lve the equation, the quadratic 
formula y = -hf/b^Aac' will be used. Since only real 
roots are to be found, a test will 

be included for a negative discriminant. The results will 
be printed along with the given coefficients. 

Cod ing : The coding of the procedure could look as follows 
(the lines beginning with "C." are explanatory comments): 

PR0GRAM R00TS ( INPUT, 0UTPUT) 
C . . C0MPUTE THE REAL R00TS 0F THE EQUATI0N 
C. A*X**2+B*X+C=0 

C. PRINT HEADING 
PRINT 44 
44 F0RMAT(1H1,7X,1HA,16X,1HB,16X,1HC,17X,5HR00T1,13X,5HR00T2) 
C . . READ DATA CARD 

10 READ 11,A,B,C 
C. CALCULATE DISCRIMINANT 

DISCRM=B**2-4 . Q*A*C 
C. TEST F0R NEGATIVE DISCRIMINANT 

IFCDISCRM)1,2,3 

C. NEGATIVE F0UND, PRINT MESSAGE 

1 PRINT 22, A,B,C 
ST0P 

C. HAVE ZER0 DISCRIMINANT, R0OTS ARE EQUAL 

2 R00T1=-B/(2.O*A) 
R00T2 - R00T1 
G0 T0 4 

C . . CALCULATE R00TS 

3 RADICL=SQRT(DISCRM) 
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1.4 

COMPUTER PRO- 
CESSING OF A 
PROBLEM 



11 
22 
33 



R00T1= (-B+RADICL) / (2 . 0*A) 

R00T2=(-B-RADICL)/ (2.0*A) 

PRINT RESULTS 

PRINT 33, A,B,C, R00T1.R00T2 

ST0P 

F0RMAT(3F15.7) 

F0RMAT(1HO,3F17 . 7 , *bR00TSbAREbIMAGINARY*) 

F0RMAT(1HO,3F17 . 7 , 5X, 2E18 . 10) 

END 



Execution and Testing . The above program would be prepared 
as described in sections 1.5 and 1.6, and presented te the com- 
puter along with a set of operating system control state- 
ments. The program would be executed with various sets of 
data and the printed results would be checked against hand 
calculations. If there are any errors, changes in the source 
code or redefinition of the problem would be made. 



The processing of the problem by the computer actually 
occurs in two parts. The first is compilation, the trans- 
lation of the source program Into an object program by the 
compiler. The second is the executing of this set of instruc- 
tions by the computer to give the results specified by the 
source program and associated data. The stages are shown as 
blocks in the diagram below. 



Input 

FORTRAN" 
SOURCE 

PROGRAM 



Computer 



Execution 
of the I 
FORTRAN 
Compiler 



Object Progranr 



DATA _, 
(if any) 



Execution 
of the ) 
Object 
Program 



Output 

Listing of . 
program with 
possible 
diagnostics 



Time 



RESULTS 



1-4 



At each stage errors made by the programmer may be detected 
by the computer. If the individual statements, their order, 
or their reference to each other are inconsistent or have 
the wrong form (i.e., incorrect syntax), the compiler may 
issue a diagnostic report of the errors instead of allowing 
the program to continue to the next stage. 

A program may still be faulty even when successfully com- 
piled. The compiler can only check the syntax rules for 
FORTRAN statements described in this Guide. The meaning 
imparted by the programmer to these statements cannot be 



phpftpH 



Thi 



m-no-vaT 



- ^ J 



may still fail to solve the given problem. It is not 
guaranteed that the compiler will detect all errors of 
syntax. 



7.5 

FORTRAN 
COVING LIME 



Errors occurring during execution are usually indicated by 
incorrect results or by error messages given in the printed 
output. But even if the results look correct, there is no 
guarantee that they are the desired results. They must 
be checked against known results, usually hand calculations, 
to insure that the program does indeed solve the stated 
problem. 



A FORTRAN coding line contains 80 columns* in which FORTRAN 
characters are written one per column. The three types of 
codin 0, lines are listed below* 



Line 



Column 



Content 



Statement 



1-5 



statement number or blanks 





6 


blank or zero 
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FORTRAN statement 




73-80 


identification field 


Continuation 


1-5 


blank 




6 


Any character other 
zero 




7-72 


continued FORTRAN st 




73-80 


identification field 


Comment 


1 


C 




2-80 


comments , 



Columns 73-80 are used only for labelling for the user's convenience. Their 
presence is optional and any Fortran source program may be entered through 
devices which allow only 72 characters per line. 
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1.5.1 

Statement 

Humbvi 



1.5.2 

foKVum 

Statement 



1.5.3 

Statement 

Continuation 



1.5.4 

Identification 

field 



1.5.5 
Comment* 



1.6 

INPUT UEV1A 



1.6.1 
Punched CaAcU 



Any statement may have an identifier called a statement 
number . A statement number is a string of 1 to 5 digits 
occupying any column positions 1 through 5. For usage, 
see Section 2.2.2. 



The actual statement information is written in columns 7 
through 72. Statements longer than 66 columns must be con- 
tinued to the next line. Blanks in these columns are ignored 
by the Fortran compiler except in Hollerith fields or literal 
strings, and thus may be included wherever desired for clarity 
in reading a statement. 



The first line of every statement must have a blank or zero 
in column 6. If statements occupy more than one line, all 
subsequent lines must have any characters other than blank 
or zero in column 6. Continuation lines may be separated 
by lines whose first 72 columns are blank. A statement may 
have up to 19 continuation lines. 



Columns 73 through 80 are always ignored in the compilation 
process. Usually these columns are blank or contain sequencing 
information provided by the programmer, which acts as card 
identification when the program is to be punched on cards. 



Each line of comment information is designated by a C in 
column 1. Comment information may be placed anywhere in the 
source program. It appears in the source program listing, but 
it is not translated into object code. The continuation charac- 
ter in column 6 is not applicable to comments. 



It is necessary to transcribe the coded source program and 
data onto a medium which is easily interpretable by the com- 
puter. A detailed discussion of input and output media appears 
in Chapter 13. 



The most commonly-used medium is the punched card. Each coding 
line corresponds to one 80-column card; the terms "line" and 
"card" are often used interchangeably. A punch code is used 
in each column of the card to indicate the letter, digit, or 
special character which is represented by the column. This 
code is called Hollerith code and the information read into 
the computer from such cards is called display code. Both of 
these codes are detailed in Appendix A, Table H. 
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1.6.2 
Kzyboand 



The format of a card used for statements in a source 
program is described in Section 1,5. When cards are 
being used for data, all 80 columns may be used. 



The second most commonly-used input medium is a key- 
board-actuated terminal. This is a device with a key- 
board and a display mechanism connected to the computer 
by wire. The most common keyboard terminal is a tele- 
type machine but other devices with displays similar 
to a television receiver are often used. 



It is usual to restrict input and output to lines no 
longer than 72 characters when keyboard terminals are 
used. 



1.6.3 
Magnetic Tape. 



1.7 

SVUBOL 

C0WI/EWTI0W5 



Magnetic tape is often used for the storage of large 
program or data files but not as an initial input medium 
for programs. See Chapter 13 for details of magnetic 
tape usage. 



Because of the similarity between symbols, certain hand- 
writing conventions are established when coding a prob- 
lem. Is are usually written as X and ones as / . 
Letter Os are often written with a slash, 0. Zeros are 
seen as 0. Note that this convention (0 and 0) is not 
universally adopted. Many documents exist which use the 
exact opposite convention. Beware! A preferred (and 
unambiguous) convention is to write a cursive letter <9~~ 
with the zero as 0. 

Zs are usually written as Z and twos as 2. A blank in 
a line of coding, especially in a Hollerith field, is 
represented by the symbol # or b. 
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ELEMENTS OF FORTRAN 



2.7 

FORTRAN 
CHARACTER SET 



2.2 
IDENTIFIERS 

2.2. 1 
Symbolic Uamz. 



Alphabetic: A to Z 
Numeric: to 9 
Special: = equals 

+ plus 

- minus 

* asterisk 

/ slash 

( left parenthesis 



) right parenthesis 
, commas 
. decimal point 
$ dollar sign 
(space) blank 



All characters appear internally in display code (Appen- 
dix A) . A blank is ignored by the compiler except in 
Hollerith fields within DATA and FORMAT statements and 
in Hollerith constants; otherwise it may be used freely 
to improve program readability. 



A symbolic name (also called an alphanumeric identifier ) 
consists of one to seven * alphabetic or numeric characters 
beginning with a letter, with one exception. The combina- 
tion of the letter followed by 6 or more octal digits is 
recognized as an octal constant. Embedded blanks within 
identifiers are ignored. 



Examples : 

ALPHA 
A1234 
HI THERE 
012KK3 



PEN IS UP (will be treated as PENISUP) 

0123 

0123456 (illegal as identifier) 

M 



Symbolic names are used as names of: 



Formal parameters 

Variables 

Library subprograms 

Subroutine subprograms 

Main programs 

Input /Output units 

Statement functions 



Labelled common blocks 

Filesets 

Function i subprograms 

Block data subprograms 

NAMELIST group names 



The maximum allowed in standard Fortran is six characters. Seven character 
names should not be used in programswhich are also to be used on other For- 
tran systems. 
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2.2.2 



2.2.3 
Data Type* 



2.3 
CONSTANTS 



2. 3. / 

lnto,QQA 

Coyi6tanti> 



2.3.2 
Octal 

COYlbtCLWUi 



Statements are identified by unsigned numbers, 1-5 digits long, 
placed anywhere in columns 1-5 of the initial line of a state- 
ment. Blanks and leading zeros are ignored. Within one subprogram, 
statement numbers must be unique and can be any number from 1 
to 99999. The values of the statement numbers in a subprogram 
do not affect the order in which statements are executed. State- 
ment identifiers are optional for statements not referenced by 
other statements. 



Seven data types are used in Fortran: integer, octal,* real, 
double precision, complex, Hollerith, and logical. Complex 
and double precision data may be formed from real data. The 
computer word structure for each data type is listed in Appen- 
dix A. Both the range and precision of numeric data are sys- 
tem dependent. Both are greater in RUN Fortran than in most 
systems. 



There are constants of each data type in Fortran. The type 
of a constant is determined by its form. 



An integer constant, N, is a string of up to 18 decimal digits 
in the range -(2 59 - 1) <N< (2 59 - 1). The magnitude of the 
result of integer addition or subtraction must not exceed this. 
Subscript and DO-index calculations are limited to 2 17 - 1. 

Examples : 



63 


3647631 


247 


464646464 


314159265 


574396517802457165 



During execution, the maximum allowable magnitude when an inte- 
ger is converted to real is 2 8 - 1. This maximum applies to 
the result or operands of integer multiplication or division. 
High order bits will be lost if a value is larger, but no error 
message is provided during execution. See Appendix A for range 
limits expressed in decimal. 



An octal constant consists of 6 to 20 octal digits preceded 
by the letter or 1 to 20 octal digits suffixed with a B. 
The forms are: 



0n. 



n 



n.B 
l 



Octal is not a standard data type and should be avoided in programs which may 
be used in other Fortran environments. 
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Both forms of the constant are assigned logical mode. 

If the constant exceeds 20 digits, or if a non-octal 
digit (8 or 9) appears, a compiler diagnostic is pro- 
vided. 

If there are less than 20 digits, they are right jus- 
tified in the computer word. The high order bits are 
filled out with zeros. 

Examples : 



000007777777700000000 

07777700077777 

02323232323232323 

0000077 

07777777777777700 



2374216B 

777776B 

777000777000777B 



2.3.3 

Rea£ ConAtawU 



A real constant is represented by a string of digits; 
it may contain a decimal point, or an exponent repre- 
senting a power of 10, or both. Real constants may be 
in the following forms: 



n.n 



n. 



.n 



n.nE±s 



.nE±s n.E±s 



nE±s 



where n is a string of digits, and s is the ex- 
ponent to the base 10. The plus sign may be omitted 
if s is positive. The magnitude range of a non-zero 
constant is approximately 10 ~~ 1+ to I0 + ~ 22 with appro- 
ximately 15 significant digits. If the range is ex- 
ceeded, a compiler diagnostic is provided. See Appen- 
dix A for exact range limits. 

Examples : 



3 . El (means 3 . 
3.1415768 
314.0749162 
3.141592E+279 



10 1 : i.e. , 30.) 
31.41592E-01 
. 31415 E01 
.31415E+01 



2.3.4 

Double. PslzcAawk 



A double precision constant is a string of digits repre- 
sented internally by two words. The forms are similar to 
real constants. The string is n; s is the exponent to 
the base 10. 



.nD±s 



n.nD±s 



n.D±s 



nD±s 
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The D must always appear, but the plus sign may be omitted 
for positive s. The magnitude range of a nonzero constant 
is the same as for real constants, but with approximately 
29 significant digits; if the range is exceeded, a compi- 
ler diagnostic is provided. 



Examples : 



3.1415927D 

3.1416D0 

3141.593D-03 



3141.593D3 
31416. D-04 



2.3.5 

Complex 

Con£>£a.vi£i> 



A complex constant is represented by a pair of real constants 
separated by a comma and enclosed in parentheses (r ,r 9 ); r 1 
represents the real part of the complex number, r ? , the ima- 
ginary part. Either constant may be preceded by a minus sign. 



If the real numbers comprising the constant exceed the allowed 
range, a compiler diagnostic is provided. A diagnostic also 
occurs when the pair contains integer constants, including 
(0,0). 

Examples : 



2.3.6 

HolZthltk 

Com>tanti 



Fortran Representation 

(l.,6.55) 
(15., 16. 7) 
(-14.09,1.654E-4) 
(0.,-l.) 



Complex Number 

1. + 655i 
15. + 16. 7i 
-14.09 + .00016541 
0. - l.Oi 



A Hollerith constant is a string of display code characters* 
of the form nHf; n is an unsigned decimal integer repre- 
senting the length of the field f . The maximum number of 
characters allowed in a Hollerith constant of H form depends 
upon its usage; n is limited to 10 characters when used in 
an expression. The limit of ten characters is a character- 
istic of this system. On other systems the limit may be dif- 
ferent. In a properly formed DATA statement n is limited 
only by the number of characters than can be contained in up 
to 19 continuation lines. Blanks are significant in the field 
f . When n is not a multiple of 10, the last computed word 
is left justified with blank fill. 



Alternate forms are nLf ( left justified ) and nRf ( right jus- 
tified ) Hollerith constants with true zero fill (not the char- 
acter zero) for incomplete words. These alternate forms are 
not defined in standard Fortran and should be avoided in pro- 
grams to be used on other systems. The maximum number of 



Use of characters outside the Fortran character set (see section 2.1) must be 

> f r => ~ ■'- - - , ' T ' each context. 



OJ.UC. C J. ^ C- U L O J-ii 
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characters allowed for these forms in expressions is 10. 
If more than 10 characters are used in a DATA statement 
for such a constant, only the last w rd has the zero 
fill. 



Hollerith constants may be used in an arithmetic replace- 
ment statement, such as I=5HABCDE. They are stored in- 
ternally in display code. Hollerith data should never 
be stored in real varables ; only integer variables should 
normally be used. Great care must be taken in comparing 
Hollerith data items because of the possibility of arith- 
metic overflow. 



Examples : 

Constants 



6HC0GIT0 

4HERG0 

3HSUM 

5RSUMbb 

12HC0NTR0LDATA 

5LSUMbb 

1H) 

3LbTT 



Internal Form 

C0GIT0bbbb 
ERG0bbbbbb 
SUMbbbbbbb 
OOOOOS UMbb ** 
C0NTR0LDAT Abbbbbbbbb 
SUMbb 00000 ** 
)bbbbbbbbb 
bTTOOOOOOO ** 



2.3.7 

Logical 

Con&tanti) 



A Hollerith constant which is used as an actual parameter 
of a subroutine call or function reference has a word of 
all zeros following the last word of the constant. See: 
Hardware Representation of Data, Appendix A. 



Logical constants may be in the forms: 



.TRUE. 

.FALSE. 

A false constant is stored internally as plus zero. A 
true constant is stored internally as minus zero (A word 
of all one bits).* These are the only proper logical 
values. 



2.4 
VARIABLES 



Fortran recognizes simple and subscripted variables. A 
simple variable represents a single quantity; it refer- 
ences a storage location. The value specified by the 
identifier is always the current value stored in the 
location. A variable is identified by a symbolic name 
(Section 2.2.1). 



** 



Note the difference between a logical constant and a logical variable, 
Section 2.4.5. 

0_ represents a true binary zero here, not the display code character 
for 0. 
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The type of a variable is determined in one of two ways: 

EXPLICITLY Variables may be declared a particular 
type with the type declarations. 
(Section 5.1) 

IMPLICITLY A variable not defined in a type declara- 
tion is assumed to be integer if the 
first character of its symbolic name is 
I, J, K, L, M, or N. All other variables 
not declared in a type declaration are 
assumed to be real. 

Assuming no explicit typing affects these variables, we have 
INTEGER examples: 

115, JK26, KKK, NP326L, M 
REAL examples: 

TEMP, R0BIN, A55, R3P281 



2.4.1 
IwtQQVl 



2.4.2 

RqxUL 

\JoJvia.blQM 



Integer variables can be typed explicitly or implicitly and 
values may be in the range -(2 59 - 1) <^ I <^ (2 59 -1). * 
The maximum allowable magnitude of an integer variable depends 
on usage. The magnitude of the result of conversion from 
integer to real, or of integer multiplication or division or 
an integer being printed may not exceed 2 h * - 1; the result of 
integer addition or subtraction can be as great as 2 59 - 1. Sub- 
scripts and DO-indexes are limited to 2 17 - 1. Each integer var- 
iable occupies one word in storage. See Appendix A for range 
limits expressed in decimal and internal formats. 



Examples : 

N 

ITEM 

M58A 



NEGATE 

K2S04 

M58 



Real variables may be typed explicitly or implicitly; a non- 
zero value must be in the approximate range 10 -29lf <_ | it j <_ 10 +322 
with approximately 15 significant digits. Each real vari- 
able is stored in 6000 Series floating-point format and 
occupies one word. See Appendix A for exact range limits 
and internal format. 



Examples : 






VECTOR 
YBAR 


A62597 
BARMIN 


X 
X74A 



The variable, r, may have any one of the following values: 



-10 +322 ^r.^ 



-10~ 291+ , r = 0, 



lO" 294 < r < 10 +322 
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2.4.3 

Double. PfL2.c<Uian 

VaJbLahlu 



2.4.4 

Complex VatLLabloA 



2.4.5 

Logical Vcvu.ablej> 



2.5 

SUBSCRIPTED 

VARIABLE 



Double precision variables must be typed explicitly by a 
type declaration. Each double precision variable occupies 
two words of storage and can assume values in the same range 
as real variables but with approximately 29 significant 
digits. See Appendix A for exact range limits and inter- 
nal format. 



Complex variables must be explicitly typed by a type 
declaration. A complex variable occupies two words in 
storage (real part first). Each word contains a number 
in real format. The ordered pair of real values (C-.,C 9 ) 
represents the complex number: C + i. C . 

Logical variables must be typed explicitly by a type 
declaration. Each logical variable occupies one word of 
storage; it can assume the value true or false. A logi- 
cal variable with a plus zero value (a binary 0) is false; 
any other value, including minus zero (a word of all one 
bits) is considered true.** (Caution: see Appendix A, 
Logical Operands). When a logical variable appears in an 
expression whose dominant mode is real, double, or com- 
plex, it is not converted prior to its use in the evalua- 
tioiv.of the expression (as is the case with an integer 
variable) . 



A subscripted variable may have one, two, or three sub- 
scripts enclosed in parentheses immediately following the 
variable name.* More than three subscripts produce a com- 
piler diagnostic. The subscripts can be unparenthesized 
expressions in which operands are simple integer variables 
and integer constants and operators are addition, subtrac- 
tion, multiplication, and division only. Subscripted var- 
iables may not appear in a subscript. If a program is to be 
used on other Fortran- systems, subscript expressions should be 
limited to constants and linear functions of a single variable, 

When a subscripted variable represents the entire array 
as in a DIMENSI0N statement, the subscripts are the dimen- 
sions of the array. When a subscripted variable references 
a single element in an array as in an expression, the sub- 
scripts describe the relative location of the element in 
the array. The number of subscripts should be the same as 
the number declared for the arrav. 



** 



The use of the identifier, F0RMAT, for a dimensioned variable should be avoided 
because the compiler has difficulty disti n guishings its use from a F0RMAT state- 
ment (Section 9.2). 
i 
Thus, it is possible to have both a logical variable and its negation considered 

true if the variable does no€ contain a proper logical value, i.e., minus 
zero for true, plus zero for false. 
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2.6 
ARRAYS 



Simple Variable 

FRAN 

P 

Z14 

EVAL 

I 



Subscripted Variable 

A(I,J) 

B(I+2,J+3,2*K+1) 

Q(14) 

STRING (3*K*ILIM+3) 

G0ING(5-I,5O/J) 



An array is a block of successive storage locations which is 
used for the storage of all subscripted variables with a given 
name. The entire array may be referenced by the array name with- 
out subscripts (in I/O lists and subprogram references). Arrays 
may have one, two, or three dimensions; the array name and di- 
mensions must be declared in a DIMENSION -CSec&ion 5.2), C0MM0N 
(Section 5.3), or type declaration (Section 5.1) prior to the 
first program reference to that array. 

Each element in an array may be referenced by the array name with 
a subscript notation. Program execution errors (with or without 
an error message) may result if the value of a subscript is zero, 
negative, or larger than the corresponding dimension declared for 
the array. The maximum number of elements in an array is the pro- 
duct of the dimensions. 



2.6./ 
S&luc£ua&> 



In discussing arrays the following definitions are used: The . 
dimension of an array is the number of subscripts in its decla- 
ration. A column is a subset of the elements of a two-dimensional 
array which have the' same value for the second subscript. Thus 
the first subscript is the row number and the second subscript 
is the column number within a two-dimensional array. A plane 
is the subset of the elements of a three-dimensional array which 
have a given value for the third subscript. Thus a column is 
effectively a one-dimensional array and a plane is effectively 
a two-dimensional array. 



Arrays can be of three forms. A one- dimensional array has its 
elements stored in ascending memory locations ; in the array de- 
clared as A(9) and stored beginning in location L in memory: 



A -*■ L 
A 2 + L+l 

A -> L+2 



A, -> L+3 
4 

A 5 •*- L+4 

A, -* L+5 
6 



l 7 



L+6 



A 8 - L + 7 
A + L+8 
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A two-dimensional array has its elements stored by 
columns in ascending locations; in the array declared 



as A(4 S 3) ; 



*u* L 



A n * L+l 
A 31 * L+2 

A A , -> L+3 



A 12 * L+4 
A 22 + L+5 
A 32 * L+6 
A, „ - L+7 



A 13 + L+8 

A 23 - L + 9 

A 33 - L+10 

A, „ + L+ll 
to 



A three-dimensional array has its elements stored by 
column, row, and finally plane; in the array declared 
as A(3,3,3) : 



A lll * L 
A 211 - + L+1 
A 311 * L+2 



A 121 + L+3 
A 221 + L + 4 

A 321 + L+5 



A 133 * L+24 
A 233 * L+25 
A 333 * L+26 



Thus, in order to step consecutively through the memory 
locations allocated to an array, we would begin with the 
element whose subscripts all equal one. We would then 
add one to the first subscript at each step until its 
maximum value (the first dimension) is reached. On the 
j.Oj.lowxng step, we auu one to the second subscript and 
reset the first to one. When the second reaches its 
maximum, we would similarly advance the third. When 
this algorithm would require advancing to a non-existent 
element, we are through. 

The planes are stored in order, starting with the first, 
as follows : 



A lll 


A 121 


A 131 


A 211 


A 
221 


A 
231 


A 311 


A 
321 


A 

331 



A 112 


A 
122 


A 
132 


A 
212 


A 
222 


A 
232 


A 

312 


A 
322 


A 
332 



A 113 


A 123 


A 

133 


A 
213 


A 
223 


A 
233 


A 
313 


A 
323 


A 
333 
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Array allocation is discussed further under the C0MM0N and 
DIMENSI0N declarations. The memory location of an array 
element with respect to the first element is a function of 
the subscript values, the declared array dimensions, and 
the type of the array. 

Given DIMENSION A(L,M,N), the locations of A(i,j,k), with 
respect to the first element A of the array, is given by 
the array element successor function* 

A + (i-1 + L * (j-1 + M * (k-1))) * E . 

The quantity enclosed by the outer parentheses is the 
evaluation of the subscript expression. E is the element 
length — the number of storage words required for each element 
of the array. For real, logical, and integer arrays, E = 1. 
For complex and double precision arrays, E = 2. 

Example: 

In an array defined by DIMENSI0N A(3,3,3), the loca- 
tion of A(2,2,3) with respect to A(l,l,l) is: . 

Locn A(2,2,3) = Locn A(l,l,l) + (2-1+3(1+3(2))) 

= L + 22 

The elements of a single-dimension array A may not be 
referred to as A(I,J,K) or A(I,J). Diagnostics occur if 
this is attempted. 



The array element successor function for the one and two dimensional 
arrays A(L) and A(L,M) are A + (i-1) * E and A + (i-1 + L * (j-1)) * 
respectively, where the symbols are as above. 



EXPRESSIONS 



3,1 

ARITHMETIC 

EXPRESSIONS 



An expression is a constant, variable (simple or sub- 
scripted) , function, or a combination of these sep- 
arated by operators and parentheses. The four kinds of 
expressions in FORTRAN are: arithmetic and masking (Boolean) 
expressions, which have numerical values, and logical and 
relational expressions, which have truth values. Each type 
of expression is associated with a group of operators and 
operands. 



An arithmetic expression can contain the following operators 

+ addition 

subtraction 
* multiplication 

division 

exponentiation 



/ 
** 



Operands may be: 

Constants 

Variables (simple or subscripted) 

Evaluated functions 

Expressions 

Any unsigned constant, variable, or function is an arith- 
metic expression. If X is an expression, then (X) is 



an expression. If X and Y 
following are expressions: 



are expressions, then the 



X + Y 


X - Y 


X * Y 


X / Y 


-X 


X**Y 



If op is one of the valid operators given above and X 
and Y are valid expressions, then X op op Y is never 
a valid expression. 
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Examples : 

A 

3.14159 

B + 16.427 

(XBAR+(B(I,J+I,K)/3)) 

-(C+DELTA*AER0) 

(B-SQRT (B**2- (4*A*C) ) ) / (2 . Q*A) 

GR0SS-(TAX*O.O4) 

(TMP+V(M,MAXF(A,B))*Y**C)/(H-FACT(K+3)) (where V and 

MAXF are functions) 
A+-B (erroneous expression - invalid sequence of operators) 

A+(-B) 

3.1,1 

khJJJmojtlc. 

Evaluation The hierarchy of arithmetic evaluation is: 

** exponentiation class 1 



/ division 

* multiplication 

+ addition 

- subtraction 






class 3 



In an expression with no parentheses or within a pair 
of parentheses in which unlike classes of operators 
appear, evaluation proceeds in the above order. In 
expressions containing like classes of operators, eval- 
uation proceeds from left to right . For example, A**B**C 
is evaluated as (A**B)**C. 

Parenthetical and function expressions are evaluated first 
in a right-to-lef t scan of the entire statement. In 
parenthetical expressions within parenthetical expressions, 
evaluation begins with the innermost expression. Paren- 
thetical expressions are evaluated as they are encountered 
in the right-to-left scanning process . 

When writing an integer expression, it is important to re- 
member not only the left-to-right evaluation process, but also 
that dividing an integer quantity by an integer quantity 
may yield a truncated result; thus 11/3-3. The expres- 
sion I*J/K may yield a different result than the expression 
J/K*I. For example, 4*3/2 = 6 but 3/2*4 = 4. 
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Examples: 

In the following examples, R indicates an intermediate result in evaluation: 
A**B/C+I)*E*F-G is evaluated: 



A**B — 


R l 


R /C — 


R 2 


D*E — ] 


R 3 


R 3 'F- 


R 4 


R 4 +R 2 - 


■ R 5 


v°- 


R 6 



evaluation completed 

A**B/(C+D)*(E*F-G) is evaluated: 
E*F-G — R 

C + D - R 2 

A**B — R 

R.,/R 9 — R 
o 2. 4 

R.*R. — R,_ evaluation completed 

4 15 

H(13)+C(I,J+2)*(COS(Z))**2 is evaluated: 
C^S(Z) ■— R i 

v* 2 ~ R 2 

R 2 *C(I,J+2) — R 3 

R +H13) — — R. evaluation completed 

The following is an example of an expression with embedded parentheses , 

A*(B+( (C/D)-E) ) is evaluated: 



C/D - 




R ! 


R -E 


— 


R 2 


V B 




R 3 


R 3 'A 




R 4 



evaluation completed 

(A*(SIN(X)+1.)-Z)/(C*(D-(E+F) ) ) is evaluated: 

E+F — Rj 

°- R l - R 2 

SIN(X) — R A 
4 
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3.1.2 
A/U£hmet£e. 



R, + 1. 


■ v 


R 5 


R 5 * A 


-*- 


R 6 


R 6" Z 


-> 


*7 


V R 3 


-V 


S 8 



evaluation completed 



Mixad-raode arithmetic with the exception of exponentiation 

is completely general*; however, moat applications probably m i x 

only the operand types: real and integer, real and double, or 
real and complex. The relationship between the mode of 
an evaluated expression and the types of operands it con- 
tains is established as follows below. 

Order of dominance of the operand types within an expres- 
sion from highest to lowest : 

Complex 

Double 

Real 

Integer 

Logical 

Arithmetic expressions, except exponentiation and functions, 
are evaluated by in-line arithmetic instructions. 

The type of an evaluated arithmetic expression is the mod* 
of the dominant operand type* 

In expressions of the form A**B , the following rules apply: 

If B la to ba preceded by a unary minus operator, 
the form ia A**(-B). 

If A is preceded by a unary minus operator, it is equi- 
valent to the form: -(A**B). 



For the various operand types, the type relationships 
of A**3 are: 

Type of B 



< 


I 


X 


n 


D 


C 


L 




m 


X 


n 


a 


n 


n 


^ 


o 

81 


11 


B 


n 


D 


n 


n 




s>» 


D 


D 


D 


D 


n 


n 


; 


H 


G 


C 


n 


& 


& 


n 






L 


1 


n 


a 


n 


n 


J 



paoda of 



A»*B 



n indicates an 
invalid assumption 

For example, if A is real and_ B is integer, the mode of A**B is real, 



Aitiio 
compl 



ugh this capability often provides more compact programs, its use can 
icate the debugging process considerably. 



Examples: 



1) Given real A, B; integer I, J. The type of expression A*D-I+J is real 
because the dominant operand type is real. 

The expression is evaluated: 

Convert I to real 

Convert J to real 

A*B — R real 

R -I — R real 

R +J -— R„ real 
2 3 

2) The use of parentheses can change the evaluation. A.B.I.J are defined 
as above. A*B-(I-J) is evaluated: 

I- J — R integer 

A*B — R real 

Convert R to real 

R -R, — R„ real 

2 13 

3) Given complex C,D, real A,B. The type of the expression A*(C7D)+B 
is complex because the dominant operand type is complex. The 
expression is evaluated: 

C/D — R complex 

Convert A to complex 

A*Rj — R 2 complex 

Convert B to complex 

R +B — R complex 

4) Consider the expression C/EH-(A-B) where the operands are defined in 
3 above. The expression is evaluated: 

A-B — R real 

C/D — • R complex 

Convert R to complex 
R +R 9 — R complex 
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5) Mixed-mode arithmetic with til typee is illustrated by this example: 
Given: the expression C*D+R/I-L 



c 


Complex 


D 


Double 


R 


Real 


I 


Integer 


L 


Logical 



The dominant operand type in this expression is complex; therefore , the 
evaluated expression ia complex. 

Evaluation: 

Round D to real and affix stro imaginary part. 

Convert D to complex 

C*D -» R complex 

Convert R to complex 

Convert 1 to complex 

R/I -» R,, complex 

R.,+R -* R compltx 

R -L -» R complex * 

If the aame expression is rewritten with parentheses as C :S D*(R/I-L) the 
evaluation proceed* : 

Convert I to real 

R/l — - Rj real 

R.-L -• R real * 

Convert D to complex 

C*D -* R 3 complex 

Convert R^ to complex 

R 2 +R 3 -* R, complex 



3.2 

RELATIONAL 

EXPRESSIONS A relational expression has the form 

• x op » 2 
and Its result haa a logical value. 



Note that logical variables are not converted if used in an expression 
whose dominant mode is real, double, or complex. 
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The a's are arithmetic expressions; op is an operator belonging 
to the set: 

S EQ, Equal to 

.NE. Not equal to 

.GT. Greater than 

.GE. Greater than or equal to 

.LT. Less than 

.LE. Less than or equal to 

A relation is true if a^ and a2 satisfy the relation specified 
by op; otherwise, it is false. A false relational expression 
is assigned the value plus zero; a true relational expression 
is assigned the value minus zero (all one bits). 

Relations are evaluated by subtraction of the two expressions 
being related. Thus, for example, the evaluation of the rela- 
tion p.EQ.q is equivalent to answering the question does 
p - q = 0? The difference is computed and tested for zero. 
If the difference is zero or minus zero, the answer is yes, 
and the relation is true. If the difference is not zero or 
minus zero, the relation is false. 

The arithmetic values minus zero and plus zero are always con- 
sidered equal in these comparisons. 

Relational expressions are converted internally to arithmetic 
expressions according to the rules of mixed-mode arithmetic. 
These expressions are evaluated and compared with zero to deter- 
mine the truth value of the corresponding relational expres- 
sion. When complex (or double precision) expressions are tested 
for zero or minus zero, only the real part (or most significant 
part) is used in the comparison. 

Take care when comparing non- integer values for equality. 
It is often more appropriate to test for an absolute 
difference less than some suitable tolerance value. 

The operators of the above set cannot be used to relate 
logical variables and constants. The operators given 
under Logical Expressions, Section 3.3., should be used. 

Order of dominance of the operand types within an expression 
is the order stated in mixed-mode arithmetic expressions. For 
example, relational expressions of the following forms are allowed: 

I .LT. R 

I .LT. D 

I .LT. C 

I is integer, R is real ^ D . JLs double precision, and C 

is complex. The I is converted appropriately before 
the comparison is made. If the expressions are not con- 
stants or single variables, they should be enclosed in 
parentheses to eliminate ambiguities in mode conversion. 
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Examples : 



3.3 

LOGICAL 

EXPRESSIONS 



A .GT. 16. 
R-Q(I)*Z.LE.3.141592 
B-C .NE. D+E 



R(I).GE.R(I-1) 
K .LT. 16 
I .EQ. J(K) 
(I).EQ.(J(K) ) 



A logical expression has the general form: 
L l op L 2 °P L 3 • • • 

The terms L. are logical variables, logical constants, or rela- 
tional expressions and op is either the logical operator .AND. 
indicating conjunction or .OR. indicating disjunction. 

The logical operator .N0T. indicating, negation appears in the form: 
.N0T. L 

If the value of the expression* is equal to plus zero, 
the logical expression has the value .FALSE. . All other 
values are considered true. Thus, it is possible to have 
both A and .NOT. A be true if A does not contain a proper 
logical value. 



The hierarchy of logical operations is: 

First .N0T. 

then .AND. 



then 



.0R. 



A logical variable, logical constant, or a relational expression 
is, in itself, a logical expression. If L ,L~ are logical ex- 
pressions, then the following are logical expressions: 

.N0T.L 

L .AND.L 

L r 0R.L 2 

If L is a logical expression, then (L) is a logical expres- 
sion. 

If L ,L are logical expressions and op is .AND. or .0R., then 
L 1 op op L is never legitimate. 



See Appendix A, Logical Operands. 



.N0T. may appear in juxtaposition with .AND. or ,^R. 
only as follows: 



h 1 .AND. .N0T. L 
l x .jIr. .Njfd. L 



.AND 



.(.Njfr. ... ) 

L x .jjR.(.N^T. ...) 
.N0T. L 1 .0R. ... 

.N0T. L .AND. ... 

.N0T. may appear with itself only in the form .N0T.(.N0T. L); 
other combinations cause compilation diagnostics. 

If L^, L^ are logical expressions, the logical operators 
are defined as follows: 



.N^T.L 



1 ~2 
L x .^R. L 2 



is true only if L.. is false 

is true only if L ,L are both true 

is true only is L-, is true, L„ is true, or 
uotn are true: otuerwise it is j_ao.se. 



These relations are summarized in the table below, where T 
represents true and F is false. 



L l 


L 2 


L i 


.AND 


' L 2 


L^R.L^ 


.N0T. L. 


T 


T 




T 




T 


F 


T 


F 




F 




T 


F 


F 


T 




F 




T 


T 


F 


F 




F 




F 


T 



Examples : 



1) B-C£A_<B + C is written 
B-C.LE.A.AND.A.LE.B+C 

2) FICA greater than 176.0 and PAYNMB equal to 5889.0 
is written 

FICA. GT. 176.0. AND. PAYNMB. EQ. 5889.0 

3) An expression equivalent to the logical relation- 
ship (P -*• Q) may be written as: 

.N0T.P.0R.Q 
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1-73 

The masking expression is a generalized form of the logical 
expression in which the variables are of types other than 
logical.* 

In a FORTRAN masking expression, 60-bit logical arithmetic 
is performed bit-by-bit on the operands within the expres- 
sion. The operands may be any type variable, constant, or 
expression. No mode conversion is performed during evalua- 
tion. If the operand is complex, operations are performed 
on the real part. The masking operators are identical in 
appearance to the logical operators, their hierarchy is the 
same, and have the following definitions: 



.N^T. complement the operand 

.AND. form the bit-by-bit logical product of two 

operands 

.0R. form the blt-by-bit logical sua of two operands. 

The operations arc dcscril)ed below*: 



E 


V 


p 


.AND. 


V 


p. 


.fa.v 


.N^T. p 


1 


1 




1 






1 





1 














1 








1 











1 


1 




















1 



Let Bj be masking expressions, variable* or constants of any type. The following 
are masking expressions: 

,N0T. B 

B .AND. B 
B .0R. B 2 



If B is a masking expression, then <B) is a masking expression. 

• NpT. may appear nett to .AND. or .0R. only as follows: 
.AND. .N^T. 

' .AND. (.N^T ) 

.ffa. <.Nj<T. ...) 



Masking operations may also be performed by the AND, jfo, or C^MPL functions. 
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Masking expressions of the following forms are evaluated from left to right. 



.AND. B .AND. C . 
.6r. B .^R. C . . . 



Arithmetic expressions contained in masking expressions should 
be enclosed in parentheses. 



Examples: 

A 77770000000000000000 
D 00000000777777777777 
B 00000000000000001763 
C 20045000000000000000 



octal constant 

octal constant 

octal form of integer constant 

octal form of real constant 



.Nflfa\ A is 00007777777777777777 

A .AND. C is 20040000000000000000 

A .AND. .N0T. C is 57730000000000000000 

B ,^R. .N^T. D is 77777777000000001763 
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REPLACEMENT STATEMENTS 



4.1 

ARITHMETIC 

REPLACEMENT 



The general form of the arithmetic replacement statement 
is A = E , where E is an arithmetic expression and A 
is any variable name, simple or subscripted. The operator 
= means that A is replaced by the value of the evaluated 
expression, E, with conversion for mode if necessary. 

■a, — ™_1 ~~ . 

A = -A 

B(N,4) = CALC(I+l)*BETA+2.3478 

XTHETA=7.4*DELTA+(A(I,J,K)**BETA) 

RESPSNE=SIN(ABAR(INV+2 , JBAR)*ALPHA(J ,KAPL(I) ) ) 

JMAX = 19 

AREA = SIDE1 * SIDE2 

PERIM = 2.*(SIDE1 + SIDE2) 

C = (3.,1,) 



A 



MUEV-MOVE 
REPLACEMENT 



The type of an evaluated expression is determined by the 
type of the dominant operand. This, however, does not 
restrict the types that identifier A may assume. The 
following chart shows the A = E relationship for all the 
standard modes. The mode of A determines the mode of 
the statement. 

When all the operands in the expression E are logical, 
the expression is evaluated as if all the logical operands 
were integers. 

For example, if L-, , L 2 , L3, L 4 are logical variables, R 
is a real variable, -ind 1 is an integer variable, then 



I = L X * L 2 + L 3 



is evaluated as if the L-s were all 



integers and the resulting value is stored as an integer 
in I . 



R = Li * L 9 + L 7 - L, 



is evaluated as stated above, but the 



result is converted to a real (a floating point quantity) 
before it is stored in R. 

Warning: mixed-mode expressions are sometimes not compiled 
exactly as ANSI Fortran specifies . Dominant mode for sub- 
expression is determined by the compiler for each level of 
parenthesis grouping. 

A = X .LT. Y .AND. I/J .EQ. K 

is actually compiled by RUN as: 

A = X .LT. Y .AND. FLOAT (I) /FLOAT (J) .EQ. FLOAT (K) 
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because the compiler determines the dominant mode as REAL, 
the integer division is not truncated as expected in stan- 
dard Fortran. 

To avoid this problem, and whenever in doubt, fully paren- 
thesize the subexpressions in question. That is, 

A = (X .LT. Y) .AND. (I/J .EQ. K) 

will convince RUN to compile an ANSI standard interpretation 
without really altering the expression. 



Type or 

A 

— i 


! 

5 


Type of Expression E 




i Complex 


Double 
Precision 


Real 

...... 


Integer 


Complex 


i 

I A = E 


Set A = most 




Convert E 






significant hall 




to Real 






of E 








I 


A . = E 
real 


A = E 
real 


A = E 
real 






A. =0 
imag 


A. =0 
imag 


imag 


| Double 


A - E 

real 

lleaa slgnifi- 


A = E 


A = E 


Convert £ 


Precision 




less signifi- 


to Real 




J cant is set 




cant is set 


A = E J 




to zero 




to zero 


less signifi- 


1 








cant is set . 










to zero 


Heal 


A = E ' 
real 


Set A = most 


A = E 


Convert E 




significant half 




to Real 






of E 




A = £ 






A = E 






Integer 


Truncate 


Truncate E 


Truncate E 


A = E 




E . to 
real 

Integer 


to 48 bit 
integer 


to Integer 






A = E 


A = E 


A = E 




Logical 


If E , f 0, 


If E f 0, 


If E -J 0, 


If E^0, 




A ^ 


Aj«0 


A^0 


A i 


; 


If E . = 0, 
real ' 

A = 


If E = 0, 

A = 


If E = 0, 
A = 


If E = 0, 

A = 



Examples: 






Given: 


c r A i 


Complex 




D i' A 2 


Double 




R r A 3 


Real 




V A 4 


Integer 




V A 5 


Logical 
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1. A. = C *C - C„/C, (6.905, 15.393) = (4.4,2.1)* 

J *■ (3.0, 2.0) - (3.3, 6.8)/(l.l, 3.4) 



The expression is complex; the result of the expres- 
sion is a two-word floating point quantity. A. is 
complex, and the result replaces the old value in A.. . 



2. A 3 = C ± 4.400 = (4.4,2.1) 

The expression is complex. A is real; therefore, 
the real part of C. replaces A_ . 

3. A = C *(0.,-l.) 2.1000 = (4.4,2.1)*(0.,-1.) 

The expression is complex. A~ is real; the real part 

of the result of the complex multiplication replaces A_ . 

4. A. = R-/R *(R -R,)+I - 13 = 8.4/4.2*(3. 1-2. 1)+14 

4 12 3 4 1 

(I 2 *R 5 ) -(1*2.3) 

The expression is real. A, is integer; the result of 
the expression evaluation, a real, is converted to an 
integer replacing A, . 

5. A 7 = D 1 **2*(D ? +(D^*D A )) 4.96800000000000 = 

+(D *D *D ) 2.0D**2*(3.2EH-(4.1D*1.0D)) 

+(3.2D*2.0D*3.2D) 

The expression is double precision. Ao is double 
precision; the result of the expression evaluation, 
a double precision quantity, replaces A2 . 

6. A 5 = C 1 *R 1 -R 2 +I 1 46.72=(4.4,2.1)*8.4-4.2+14 

The expression is complex. Since A5 is 

logical, the real part of the evaluated expression 

replaces A . If the real part is zero, zero replaces 
A 5 . 
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4,3 

LOGICAL 

REPLACEMENT 



i he generax ionn of the logical replacement statement is 
L = E , where L is a logical variable and E may be a 
logical or relational expression. L is replaced by a minus 
zero (a word of all one bits) if the evaluated expression is 
true and by a plus zero (a binary 0) if the evaluated expres- 
sion is false. 



4.4 

MASKING 

REPLACEMENT 



Examples : 

LOGICAL A, B, C, D, E, LGA, LGB, LGC 

REAL F, G, H 

A « B .AND. C .AND. D 

A = F .GT. G ,0R. F .GT. H 

LGA - .Njfr. LGB 

LGC - E .jfa. LGC .4R. LGB .|(r. LGA .jfe. (A .AND. B) 



The general form of the masking replacement statement is 
M ■ Es E is a meskin expression and M is a variable 
of any type ^c ffit^glical . No mode conversion is made 
during the replacement^™* 



Examples : 

INTEGER I,J,K,L,M,N(16) 
REAL B,C,D,E,F(15) 

N(2) - I .AND. J 

B - C .AND. L 

F(J) - I .^R. .N0T. L .AND. F(J) 

D * (B.LT. C) .AND. (C .LE. E) .AND. .NJ0T. I 

Masking is used to form special bit patterns within a com- 
puter word and to manipulate bits and characters within a 
computer word.* 



A set of bit and character string manipulative functions is also avail- 
able. The descriptions and binary decks for these subprograms may be 
obtained from the Computer Center Library. 
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TV?t VECLARAllOhlS AHV STORAGE ALLOCATION 



5.1 

TVPE 

DECLARATION 



The type declaration statements provide the compiler with infor- 
mation on the data type of variables and function values. They 
may also be used for array storage allocation. 



Statement 
C0MPLEX list 



Characteristics 



2 words /element 



D00BLE PRECISI0N list 2 words/element 
or D0UBLE list 



REAL list 
INTEGER list 
L0GICAL list 



1 word/element 
1 word/element 
1 word/element 



Floating Point 
Floating Point 

Floating Point 

Integer 

Logical 



D0UBLE may replace D0UBLE PRECISI0N in any RUN Fortran state- 
ment in which the latter is allowed. This abbreviation is not 
acceptable to all Fortran systems. 

The list is a string of names separated by commas; integer con- 
stant subscripts are permitted. For example: 

A, Bl, CAT, D36F, CAR (1, 2,3) 

Type declarations are non-executable and must precede the first 
reference to the typed variables or functions in a given sub- 
program. Type declarations should also precede the first 
executable statement in a given program; if not, a warning 
diagnostic will be given. Only one type may be declared for a 
name in any subprogram. If a name is typed more than once (even 
with the same type) , the second and ensuing delcarations will 
result in warning diagnostics. 

A name not declared in a type declaration is type INTEGER if 
the first letter of the name is I, J, K, L, M, or N; for any 
other letter, it is type REAL. (See Section 2.4.) 

When subscripts appear in the list, the associated name is the 
name of an array, and the product of the subscripts determines 
the amount of storage to be reserved for that array. By this 
means, dimension (Section 5.2) and type information are given 
in the same statement. In this case no DIMENSI0N statement is 
needed; in fact, it is not allowed . 
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Examples : 

C0MPLEX A4 12, DATA, DRIVE, IMP0RT 

D0UBLE PRECISION PLATE, ALPHA (20, 20 ) ,B2MAX,F 60 , JUNE 

REAL I,J(2O,5O,2),L0GIC,MPH 

INTEGER GAR(60), BETA, ZTANK,AGE, YEAR, DATE 

L0G ICAL DIS J , IMPL , STR0KE , EQUIV ,M0DAL 

D0UBLE RL, MASS (10, 10) 

5.2 

PIMEWSIOW 

VECLARATION Storage is reserved for arrays by the non- executable state- 
ments DIMENSI0N, C0MM0N, or a type statement. 

The standard form of the DIMENSI0N declaration is: 

DIMENSI0N v- ,v , . . . ,v 
1 l n 

The variable names v. may have 1, 2, or 3 integer constant 
subscripts separated fey commas, as in SPACE (5, 5, 5). Under 
certain conditions within subprograms only, the subscripts may 
be simple integer variables as well as constants (see Sec- 
tion 5.2.1). 

The DIMENSI0N declaration is non-executable and it must precede 
the first reference to its declared arrays in a given subprogram . 
The DIMENSI0N statement should precede the first executable state- 
ment and will result in a warning diagnostic otherwise. 

The number of computer words reserved for an array is determined 
by the product of the subscripts in its declaration and by the 
type of the variable. 

A maximum of 131,071* elements may be reserved in any one array. 
If the maximum is exceeded, a diagnostic is provided. 

Examples : 

C0MPLEX AT0M 
DIMENSI0N AT0M (10,20) 

In the above declaration, the number of elements in the array 
AT0M is 200. Two words are used to contain a complex element; 
therefore, the number of computer words reserved is 400. This 
is also true for double precision arrays. For real, logical, 
and integer arrays, the number of words in an array equals the 
number of elements in the array. The same effect as the two 
statements above could be achieved by the statement : 

C0MPLEX AT0M (10,20). 



* 



This is the limit enforced by the compiler. The size of our computer limits 
storage even more. A total of 120000B (40960iq) words is the maximum central 
memory field length normally available. 
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5.2.7 
VaJhlahlt 



An array may only be dimensioned in one declaration statement 
in any one subprogram. 

Examples : 

DIMENSI0N A(20,2,5) 

DIMENSI0N MATRIX(1O,1O,1O),VECT0R(1OO),ARRAY(16,27) 



When an array name and its dimensions appear as formal 
parameters in a function or subroutine, the dimensions may 
be assigned through the actual parameter list accompanying 
the function reference or subroutine call. The dimensions 
must agree with the array size specified in the calling 
program. (See Variable Dimensions in Subprograms, Section 
7.11.) 



Example: 



5.3 

COMMON 

VECLAkATIOn 



SUBR0UTINE X(A,L,M) 
DIMENSI0N A(L,10,M) 



The C0MM0N declaration provides up to 61 blocks of storage 
that may be shared with other subprograms. The declaration 
can reserve both blank and labeled blocks. Only labeled 
common blocks may be preset by DATA declarations (section 
5.5). Data stored in labeled common blocks by the DATA 
declaration are available to any subprogram using the 
appropriate labeled block identifier. 

The starting addresses for both blank and labeled blocks 
are indicated on the load map. 

Areas of common information may be specified by the declar- 
ation: 

C0MM0N/i 1 /list 1 /i 2 /list 2 ... 

where i ,i~, ... are labeled common block names. They have 
the form or symbolic names (Section 2.2.1). 

Example: 

C0MM0N/DATA1/A,B,C 
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A common statement without a block label, or with just 
blanks between the separating slashes is treated as a 
blank common assignment. Data may not be entered into 
blank common by a DATA declaration. 

List.^ is a string of identifiers representing simple and 
subscripted variables. If a non-subscripted array name 
appears in the list, the dimensions must be defined by a 
type or DIMENSI0N declaration in that program. If an array 
is dimensioned in more than one declaration, a diagnostic is 
provided. The order of simple variables or array storage 
within a common block is determined by the sequence in which 
the variables appear in the C0MM0N statements. 

C0MM0N is non-executable and can appear anywhere in the 
program but should precede the first executable state- 
ment or else a warning diagnostic is given. Any number 
of C0MM0N declarations may appear in a program subject to 
the restriction that no single subprogram may declare more 
than sixty labeled common blocks. If DIMENSION, C0MM0N, 
or type declarations appear together, the order is. imma- 
terial. 

Since labeled common block names are used only within the 
compiler and loader, they may be used elsewhere in the pro- 
gram as other kinds of identifiers, except the subroutine 
name, or formal parameters in the same subroutine. A 
variable listed in one common block may not appear in another 
common block. (If it does, the variable is doubly defined.) 

Examples : 

C0MM0N A,B(10),C(5,5) 1 

Use of blank common 

C0MM0N/ /E,F,G,H(10,5,2) 

C0MM0N/BL0CKA/A1(15),B1,C1/BL0CKD/DEL(5,2),ECH0 
C0MM0N/VECT0R/ VECT0R (5 ) ,HECT0R , NECT0R 

The length of a common block (in computer words) is deter- 
mined from the number and type of the list variables. In 
the following statements, the length of common block A 
is 12 computer words. The origin of the common block is 
QCD. 
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C0MM^N/A/Q(A) ,R(4) 


,S(2) 




REAL Q,R 






COMPLEX S 


Block A 




origin 


Q(D 
Q(2) 
Q(3) 
Q(4) 
R(D 
R(2) 
R(3) 
R(A) 






S(l) 


real part 




S(l) 


imaginary part 




S(2) 


real part 




S(2) 


imaginary part 



If a subprogram does not use all of the locations reserved 
in a common block, dummy variables may be necessary in the 
C0MM0N declaration to insure proper correspondence of com- 
mon areas. 

C0MM^N/SUM/A,B,C,D (main program) 
C^MM#N/SUM/E(3),D (subprogram) 

In the above example, only the variable D is used in the 

subprogram. The npnseH vaHabio ^ -; Q „«„„„„„, ,._ 

over the area reserved by A, B, and C. This coding tech- . •' 
nic l ue should not be used . It is much safer and easier to 
duplicate the necessary C0MM0N statements. 

Each subprogram using a common block assigns the allocation 
of words in the block. The variables used within the block 
may differ as to name, type*, and number of elements; but 
the block name and total size must be the same for each 
occurrence of a particular labeled C0MM0N block. 

Example; 

PR0GRAM LINEAR ( INPUT, 0UTPUT) 
C0MPLEX C 
C0MM0N/TEST/C(2O) 



The length of the block labeled TEST is 40 computer 
words . 



No type conversion is implied so only temporary storage should be treated 
this way. 
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The subprogram may rearrange the allocation of words 
as in : 

SUBROUTINE 0NE 

C^MM^N/TEST/A(10) ,G<10) ,K<10) 
COMPLEX A 



The length of TEST la 40 worda. The flrat 10 elementa 
(20 worda) of the block repreaented by A are complex 
elementa. Array G la the next 10 worda, and array K 
Is the laat 10 vorda. Within the subprogram, elementa 
of G are treated aa floating point quantititea; ele- 
ments of K are treated aa integer quantitiee. 

A labeled common block will be loaded with the first sub- 
program referencing that block. Therefore, the length of 
a labeled block must not be increased by subprograms sub- 
sequently loaded. Variable names used within the block 
may differ as shown above. Blank common normally follows 

-j ,»,, „1 1 *,r*~-~ r,^A 1i'Kron7 c i iTita rr\ a r amo riPPrlp^ - its Size 

xu meiiuj i- _y axx u-ocl oliu ±.j.u 4. ^*~j »■» **■" r *■ *■< & *- ***-«. »- — ' > 

may be different from one subprogram to another, and is deter- 
mined by the largest blank common declaration encountered. 



EQUIVALENCE J . , ^ m . m 

DECLARATION The EQUIVALENCE declaration permita variablea to ahare 

locations in storage. The general form ia: 



EQUIVALENCE (A^B^ . . .) , (Aj.B^ . . .) 



• • • • 



(A 1 ,B 1 ,...) Is an equivalence group of two or more simple 
or subscripted variable names* 

EQUIVALENCE is most commonly used when two or more *"*?■ 
can ahare the same storage locationa. The lengtha need 
not be equal. 

Example: 

DIMENSION A(10,10),I(90) 
EQUIVALENCE (A, I) 
5 READ 10, A 



6 READ 20, 1 



If two variablea of different typea are declared equivalent, no mode conversion 
ia Implied of the data atored in the shared locations. 
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The EQUIVALENCE declaration assigns the first element of 
array A and array I to the same storage location. The 
READ statement 5 stores the A array in consecutive loca- 
tions. Before statement 6 is executed, all operations 
using A should be completed since the values of array T 
are read into the storage locations previously occupied 
by A. 

Variables requiring two memory positions per element which appear 
in EQUIVALENCE statements must be declared to be C0MPLEX or D0UBLE 
PRECISION prior to their appearance in such statements. 

Example: 

COMPLEX DAT, BAT 

DIMENSION DAT (10, 10) , BAT (10, 10) , CAT (10, 10) 

DOUBLE PRECISION CAT 

Cj0MM0N/IFAT/FAT(2,2O ). 

EQUIVALENCE (DAT(6,3) ,FAT(2 ,2) ), (CAT, BAT) 



EQUIVALENCE is non-executable and can appear anywhere in 
the program or subprogram. However, if it appears after 
the first executable statement, a warning diagnostic is 
provided. 

No element of the formal or dummy parameter list of a sub- 
program may appear in an EQUIVALENCE statement contained 
within the subprogram. Two variables which are both 
declared in C0MM0N statements may not be declared equi- 
valent . 

Any single or multiword variable may be made equivalent to 
any other single or multiword variable. The variables may 
be with or without subscripts. 

The following example illustrates changes in block lengths 
caused by the EQUIVALENCE declaration. 



5-7 



Example: 



Given: Arrays A and B and simple variable C. A and C 
are declared in a C0MM0N statement and B is not. 

Declaration of /BL0CK1/ 

C0MM0N/BL0CK1/A(4) ,C 

DIMENSI0N B(5) 

EQUIVALENCE (A(3) , B(2) ) 



Allocation of , 


/BL0CK 


origin A(l) 




A(2) 


B(l) 


A(3) 


B(2) 


A(4) 


B(3) 


C 


B(4) 




B(5) 



Therefore /BL0CK1/ is six words long. 
5.5 
VATA 

DECLARATION Initial values* may be assigned to program variables or labeled 

common variables** with the DATA declaration: 



DATA d 



r--- d n /a r k * a 2--- a n / » d l--" d n /a l *J-~ 



d identifiers representing simple variables , array 
names , or variables with integer constant sub- 
scripts or integer variable subscripts (implied 
D0-loop notation) . 

a constants; they may be signed or unsigned. 

k integer constant repetition factor that causes 
the constant following the asterisk to be re- 
peated k times. If k is non- integer, a 
compiler diagnostic occurs. Note that 5*-2.0 
is legal in a DATA statements and specifies 5 
repetitions of -2.0. 

DATA is non-executable and can appear anywhere in the pro- 
gram or subprogram. When DATA appears with DIMENSI0N, C0MM0N, 
EQUIVALENCE, or a type declaration, the statement that dimen- 
sions any arrays used in the DATA statement must appear prior 
to the DATA statement. Variables in blank common or formal 
parameters may not be preset by a DATA declaration. 

Single-subscript, D0-loop-implying notation is permissible . 
This notation may be used for storing constant values in arrays. 
Multiple-subscripted arrays can be preset by listing each array 
element (specifying all subscripts with integer constants) or 
single-subscripted implied D0-loop notation can be used to preset 
contiguous array elements which may be accessed according to the 
array element successor function (see section 2.6.1). 



If a variable is preset to a value by a DATA statement, executing a statement 
with a variable on the left-hand side of an equal sign or reading into the 
variable destroys that value; the original value will not be restored until 
the program is reloaded. 

ft* 

Standard Fortran allows DATA statements which initialize variables in common 

storage to appear only in BL0CK DATA subprograms (see section 7.14). 
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Examples: 

1. DIMENSION GIB (10) 

DATA (GIB(I), 1=1, 10)/1.,2.,3.,7*4.32/ 

Array GIB : 1 . 
2. 
3. 

4.32 
4.32 
4.32 
4.32 
4.32 
4.32 
4.32 

2. DIMENSION TW#(2,2) 

DATA TW0(l,l),TWp(l,2),TW0(2 s 2),TW0(2,l)/l.,2.,3.,4./ 

Array TW$: 

TW0(1,1) 1. 

TWtf(2,l) 4. 

TW0(1,2) 2. 

TW<0(2,2) 3. 

3. DIMENSION SINGLE (3, 2) 

DATA (SINGLE(I), 1=1,6) /l. ,2. ,3. ,1. ,2 . ,3. / 

Array SINGLE: 

SINGLE(1,1) 1. 

SINGLE (2,1) 2. 

SINGLE (3,1) 3. 

SINGLE (1,2) 1. 

SINGLE (2, 2) 2. 

SINGLE (3, 2) 3. 

In the DATA declaration, the type of the constant stored is 
determined by the structure of the constant rather than by 
the variable type in the statement. In DATA A/2/, an integer 
2 replaces A, not a real 2.0 as might be expected from the 
form of the symbolic name A. 

There should be a one-one correspondence between the variable 
names and the list . This is particularly important in 
arrays in labeled common. For instance: 
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C^MM^N/BLK/A(3) ,B 
DATA A/1., 2., 3., 4./ 

The constants l.,2.,3., are stored in array locations 
A(1),A(2),A(3) ; the constant 4. is discarded, B is 

unmodified and a mysterious DATA RANGE diagnostic is 
issued. If this occurs unintentionally, errors may occur 
when B is referred to elsewhere in the program. 

C$MM^N/TUP/C(3) 
DATA C/l.,2./ 

The constants l.,2. are stored in array locations 
C(l) and C(2); the content of C(3) , is not defined. 

When the number of list elements exceeds the range of 
the implied DO, the excess list elements are not stored, 
and a diagnostic is given. 

DATA (A(I), 1=1, 5, 1)/1., 2. ,3. ,4. ,5. ,6. ,7. ,8. ,9. ,10./ 
The excess values 6. through 10. are discarded. 

Examples : 

1. DATA LEDA, CASTER, P0LLUX/15, 16. 0,84.0/ 



2. 



LEDA: 

CAST0R: 

P0LLUX: 


15 

16. 

84, 


,0 
.0 


DATA A(l,3)/16. 


239/ 




Array A: 






A(l,3) 


16. 


,239 



3. DIMENSION B(10) 

DATA B/77B, 64B, 3*5B, 5*20QB/ 

Array B; 77B 
64B 

5B 

5B 

5B 
200B 
200B 
200B 
200B 
2Q0B 
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4. C0MM0N/HERA/C(4) 
DATA 0/3.6,3*10.5/ 

Array C: 3.6 

10.5 
10.5 
10.5 

5. COMPLEX PRATER (4) 

DATA PRp'ER/4*(i. 0,2.0)/ 

Array PRATER: 1.0 

2.0 
1.0 
2.0 
1.0 
2.0 
1.0 
2.0 

6. DIMENSION MESAGE (3) 

DATA MESAGE/ 9HSTATEMENT,2HIS,10HINC^MPLETE/ 

Array MESAGE: STATEMENTb 

ISbbbbbbbb 

INCOMPLETE 

7. DIMENSION MESSAGE (3) 

DATA MESSAGE/23HSTATEMENTbISbINC0MPLETE/ 

Array MESSAGE: STATEMENTb 

ISbINC0MPL 
ETEbbbbbbb 
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EXECUTION SEQUENCE CONTROL STATEMENTS 



6.1 

GO TO 

STATEMENTS 



6.1,1 

Unconditional 
GO TO 



6,1.2 
k66lQnzd GO TO 



Program execution normally proceeds from one executable 
statement to the next executable statement following it 
in the program. Execution sequence control statements 
can be used to alter this sequence or cause a number of 
iterations of a section of a program. 

Control may be transferred to an executable statement only; 
a transfer to a non- executable statement usually results in 
a diagnostic message (but sometimes the diagnostic gets lost). 



Program control is transferred to a statement other than 
the next statement in sequence by the G0 T0 statements. 



Gp T0 n 



where n is statement number. Executing this statement 
causes an unconditional transfer to the statement labeled 



G(f> T0 m, 
G<j) T$ m 



( n i »n , . . . ,a ) 

J. c rC 



This statement acts as a many-branch G0 T0; m is a simple 
integer variable assigned a statement label n^ in a preceding 
ASSIGN statement. The n are statement labels in the same 
subprogram. As shown, the parenthetical statement label 
list need not be present. 



The comma after m is optional; however, when the list is 
omitted, the comma must be omitted. Although an integer 
variable in type, m must be defined by an ASSIGN statement 
and cannot be defined as the result of a computation. No 
compiler diagnostic is given if m is computed, but the 
object code is incorrect. If an assignment has not been 
made for an assigned G0 T0 statement before executing it, 
an error will occur. 



6.1.3 

ASSIGN STATEMENT ASSIGN n T0 



m 



?| ls . statement ±S US6d t0 define m for use with an assigned 
G0 T0 statement.; n is a. statement label in the same subpro- 
gram as the ASSIGN, m is a simple integer variable. 



6-1 



Example: 

ASSIGN 10 T0 LSWTCH 

G0 T0 LSWTCH, (5,10,15,20) 
Control transfers to statement 10. 



6.L4 

Computed GO TO G0 T<b (n ,n , . . . ,n ) ,i 

' 1 Jl m 



This statement acts as a many-branch G0 T0; t must be pre- 
set or computed prior to its use in the G0 T0. 

The n. are statement labels and i is a simple integer 
variable, i is not a statement number; rather, the value 
of i points to a position in the list of m statement 
labels. If 1 < if b , a transfer is made to statement 
n^. All other values of i produce execution aborts. 

The comma separating the statement number list and the 
index is optional. 

Example: 

N=3 



GO Tp (100, 101, 102, 103), N 

The third statement number, 102, identifies the 
next statement to be executed. 



For proper operation, i muac not be specified by sa ASSIGN 
statement. No compilation diagnostic is provided for this 
error, but program execution will be incorrect. 

Example: 

ISWICH =1 

G0 16 (10,20,30), ISWICH 

10 JSWICH - ISWICH + 1 

G0 Tp (11,21,31), JSWICH 

Control is transferred to statement 10 by ISWICH 
and then to statement 21 by JSWICH. 
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6.2 

IF STATEMENTS 



6. 2. \ 
A/UthmoXAji IF 



Program control is transferred to a statement depending 
upon the condition of the computed results of the IF 
statements. Evaluating the condition of an IF statement, 
such as IF(A.GT.B) requires arithmetic. If exceptional 
values (such as indefinite in a real comparison or Hol- 
lerith data in an integer comparison) occur, then im- 
proper results may be obtained. 

IF (A) n 1 ,n ,n 

A is an arithmetic expression, and the n. are statement 
labels. This statement tests the evaluated expression A 
and transfers accordingly as follows: 

A < transfer to statement n 

A = transfer to statement n ? (including A = -0) 

A > transfer to statement n„ 



6.2.2 

Oyic-Bnanck 
LogJjcaZ IF 



In the test for zero, +0 = -0 . When the mode of the eval- 
uated expression is complex, only the real part is tested 
for zero. Likewise, when the mode of the evaluated expres- 
sion is double precision, only the upper part (most signi- 
ficant half) is used. - 



Examples : 



IF(A*B-SIN (X) ) 
IF (1)5,6,7 

IF (A/B**2)3. 6. 6 



10,20,10 



IF (L) s 



L is a logical expression* and s is any executable statement 
except another logical IF or a D.0 statement. If L is true 
(not plus zero), the statement s is executed. Program control 
then passes to the next sequential statement unless s is a 
transfer statement. In that case, control is transferred as 
indicated by the transfer statement. If L is false (plus zero), 
s is not executed and the statement immediately following the 
IF statement is executed. If the IF statement is the last state- 
ment of a DO-loop, the looping continues until the DO-loop is 
satisfied. 

Note that a logical variable is in itself a logical expression. 
Other types of variables, if used alone, may be treated as logi- 
cal expressions (without mode conversion), or may return a diag- 
nostic and be rejected by the compiler. (See Logical Operands 
in Appendix A.) 

Note that the use of .EQ. to test the value of a logical variable, 
i.e., IF(SW1 .EQ. .TRUE.), will always succeed since E -0 in 
such, a test. Therefore, a statement of the form IF(SWl) should 
be used instead, since SW1 is logical already. 



Double precision arithmetic is not used with double precision variables 
in a logical IF statement. An arithmetic IF statement handles double 
precision variables correctly. 
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6.2.3 

Two-Bxanch 
Logical IF 



6,3 

VO STATEMENT 



Examples : 

IF(A.LE.2.5) A=2.0 

IF(VALUE*4. 73. GT. PRICE. 0R. VALUE. LT. 150. 0)BUY=. TRUE. 

IF(F.AND.Q)G0 T0 427 



IF (L) n v n 2 

L Is a logical expression; n are statement labels. 

The evaluated expression is tested for true (not plus 
zero) or false (plus zero) condition. If L is true, 
transfer is to statement n^. If L is false, transfer 
is to statement n. 



Examples : 



l 2' 

IF(K)5,6 

IF(K.EQ. 100)70, 60 
IF (I JUMP. LT.K) 10,11 



Dj^ n i = m..,m 2 ,iiu 



or D0 n i = m ,m 



1 r /<Amiania«f +■ r\ V£>«oot- OTTkl 1 r»S nf State— 

-»- w w \J Li. V d.X-L \~Lk. I_ U.V A. *-£* wca. b- £^w**f « ~ — — *- 

ments and to change the value of an integer variable during 
the repetition. The group of statements beginning with the 
D0 statement and ending with a statement with label n is 
called the DO loop, i is the index variable (simple inte- 
ger) . The values of i and the number of times the DO 
loop is executed are determined by the indexing parameters 
mi, m2, and 1113. They may be unsigned integer constants or 
simple integer variables. The initial value assigned to i 
is m. ; nu is the limit assigned to i , and m~ is the 
amount added to i after each time the D0 loop is executed. 



If 



m_ does not appear, it is assumed to have the value 1. 



Statement n may not be an arithmetic IF, a RETURN, a 
STOP, a PAUSE, a two-branch logical IF, a G0 T0, another D0, 
a logical IF containing any of the preceding forms, nor a non- 
executable statement. It need not be a C0NTINUE statement. 



The indexing parameters 1^,1x12,1113 are either, unsigned inte- 
ger constants or simple integer variables. Subscripted 
variables and negative or zero integer constants cause a 
diagnostic. 

The indexing parameters m^ and ra 2 , if variable, may 
assume positive or negative values or zero, but the latter 



two 



may 



cause erroneous results. 



If the values of i, m^, 1112, and 1113 are changed during the 
execution of the D0-loop, this may produce undefined results. 
If it is necessary to change these parameters during an itera- 
tion, the loop should be coded using an IF statement rather 
than a D0. 
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6.3,1 

V0-Loop 

Execution 



6.3.2 



The initial value of i, m , is increased by m^ and compared with m^ 
after executing the D0 loop once, and if i does not exceed m , the 
loop is executed a second time. Then, i is again increased by nu 
and again compared with m„ ; this process continues until i exceeds 
m_. Control then passes to the statement immediately following 
statement n, and the D0 loop is said to be 'satisfied'. 

Should m exceed nu on the initial entry to the loop, the loop is 
executed once (with i set to m-)' and the iteration ceases. If m 
and m ? are constants, this condition may produce an error diagnostic 
during compilation. When the D0 is satisfied, the index variable i 
is no longer well defined. If a transfer out of the D0 loop occurs 
before the D0 is satisfied, the value of i is preserved and may 
be used in subsequent statements. 

D0 loop arithmetic is performed with 18-bit arithmetic, and the 
values involved must not at any time exceed 131071 (2 17 -1) or else 
erroneous results may occur, e.g., the D0 may loop indefinitely. 

When a D# loop contains another Djjf loop, the grouping is called 
a D)9 nest. Nesting may be to any level. Each loop must have a 
different index variable. The last statement of a nested D0r must 
either be the same as the last statement of the outer D# loop 
or occur before it . 

If Dj_,D2»...D ra represent D/ statements where the subscripts indi- 
cate that D^ appears before D£ appears before D3 and n^,n2,.../i m 
represent the corresponding limits of the D^, then n m must 



appear at or before n 



m-1* 



r-D. 



1— D, 



r-D„ 



u - n„ 



Examples: 

D^f loops may be nested in common with other DJ^loops: 



f-D. 



r— D, 



D 



r-D, 



*— n. 



r-D. 



■— n„ 



r-D. 



D„ 



"l^V^ 



D. 
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D0 1 1=1,10,2 



D0 100 L=2, LIMIT 





D0 2 J=l,5 




D0 10 1=1,10 
D0 10 J=l,10 




D0 3 K=2,8 


10 


C0NTINUE 


3 


C0NTIMJE 




D0 20 K=K1,K2 


2 


C0NTINUE 


20 


C0NTINUE 



D0 5 1=1,5 
D0 5 J=I,10 
D0 5 K=J,15 



C0NTINUE 



D0 4 L=l,3 



100 C0NTINUE 



4 C0NTINUE 



C0NTINUE 



6.3.3 

V0 Loop Ihwnh^QA A D$ loop should be entered by the execution of the D^ 

statement. One exception is allowed: once the D(J state- 
ment has been executed and before the loop is satisfied, 
control may be transferred out of the D# range to perform 
some calculation and then transferred back into the range 
of the D0. 

In a D6 nest, a transfer may be made from an inner D6 loop 
into a D0 loop that contains it, but should not be made 
from the outer D0 loop to the inner D0 loop without first 
executing the D<6 statement of the inner Dri loop. The com- 
piler issues no diagnostics for some such transfers 
but the program will execute incorrectly. 
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Not Allowed 



Allowed 
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6.4 

CONTINUE 

STATEMEW T 



6.5 

PAUSE 

STATEMENT 



n CONTINUE 

The usual function of the CONTINUE statement is to provide 
the statement label n. It is most frequently used as the 
last statement of a DO loop to provide a label for the loop 
termination, particularly when a G0 T0 or IF would normally 
be the last statement of the loop. If C0NTINUE is used else- 
where in the source program, it acts as a do-nothing instruc- 
tion and control passes to the next sequential program state- 
ment. The C0NTINUE statement must contain a statement number 
in columns 1-5, 

Example: 

- 25 C0NTINUE 



PAUSE 
PAUSE n 



6.6 

STOP STATEMEWT 



6.7 

RETURN 

STATEMENT 



n <_ 5 octal digits without an prefix or B suffix. PAUSE n 
stops program execution with the words PAUSE n displayed 
as a message to the operator. An operator entry from 
the console can continue or terminate the program. Pro- 
gram continuation proceeds with the statement immediately fol- 
lowing PAUSE. If n is omitted, it is understood to be blank. 

ST0P 
ST0P n 

n <^ 5 octal digits without an prefix or B suffix. STOP 
terminates the program execution and returns control to the 
monitor. The message ST0P n is placed in the Job Log. If 
n is omitted, it is understood to be blank. 



RETURN 



A subprogram normally contains one or more RETURN statements 
to indicate the end of logic flow within the subprogram and 
to return control to the calling program. 

From function subprograms, control returns to the statement 
containing the function reference. From a subroutine sub- 
program, control returns to the next executable statement 
following the CALL. A RETURN statement in the main program 
causes .execution, to be terminated unless this is the pseudo- 
main program of an overlay (Chapter 8). 
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6.8 

EW STATEMENT END 



END must be the last physical line in every main program or 
subprogram. It is not executable. An attempt to execute it 
terminates the program. An END line in a subprogram does not 
act as a RETURN. The END line may not be numbered. 

For compatibility the END line may include the name of the 
program or subprogram which it terminates, but this may 
cause errors and is not recommended. 
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PROGRAM, FUNCTION, AND SUBROUTINE 



7.1 

SUBPROGRAM 

TVPES 



7.2 

SUBPROGRAM 

COMMUNICATION 



A FORTRAN source program consists of a main program with or 
without subprograms. Subprograms are block data declarations 
or computational procedures returning zero, one, or more values 
as results. There are two kinds of procedural subprograms: 
subroutines and functions. In the following discussion, the 
term subprogr am refers to both.* SubDrnprams m^v h& mmniipH 
independently of one another. (Although used like other func- 
tions, a arithmetic statement function is compiled within the 
subprogram where it is referenced.) The object code for a sub- 
program is only loaded once for program execution, although the 
subprogram may be referred to in many places. 



A calling program is a main program or subprogram that refers 
to another subprogram. The reference causes program control 
to be transferred to the subprogram called. A subprogram 
referenced (called) by a program may not have the same name as 
that program. Subprograms may call or be called by any other 
subprogram as long as the calls are nonrecursive; that is, when 
program A calls B, B may not call A, even indirectly. 

The main program and subprograms communicate with each other 
via parameters and/or C0MM0N variables. The parameters appearing 
in a subroutine call or function reference are termed actual 
parameters . Corresponding arguments, called formal parameters , 
appear with the called subprogram as part of its definition. 
When a subprogram calls another, the actual parameters of the 
calling subprogram are associated with the corresponding formal 
parameters of the called subprogram; that is, the called subpro- 
gram acts as if it has been written using the actual parameters 
of the caller. If any values of the formal parameters are changed, 
the effect is as if the values of the actual parameters are changed; 
in this way new parameter values can be 'returned' from a called 
subprogram. 

The actual parameter list in the calling program must contain 
the same number of parameters as the formal parameter list of the 
called subprogram. The corresponding parameters in the two lists 
must agree in type,** dimensionality, and intended use (i.e., 
whether the parameter will be altered by the subprogram or not) . 



** 



The term "subprogram" is also frequently used to include the main program as 
well. Also the term "program" may be used to refer to one subprogram or to 
a collection of subprograms. There are also library subprograms which are 
used without explicit CALL or function references. 

There is no automatic mode conversion if the types of the actual and formal 
parameters disagree. 
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7.2. J 

TcnmcJL 
PaAam&t&a 



7.2.2 
AcXllclZ 



C0MM0N variables (Section 5.3) may also be used to transmit 
parameters between subprograms, either from caller to called 
or vice versa. In this case those C0MM0N variables must 
also agree in type, dimensionality and intended use. The 
same variable should not occur both in a C0MM0N statement in 
the subprogram and as an actual parameter if it is altered 
under either guise. 



Formal (dummy) parameters may represent the names of arrays, 
simple variables, functions, and subroutines. A name may not 
appear more than once in a formal parameter list. Since for- 
mal parameter .names are local to the subprogram containing 
them, they may be the same as names appearing outside the sub- 
program in other contexts. 

No element of a formal parameter list may appear in a C0MM0N, 
EQUIVALENCE or DATA statement within the subroutine. If 
it does, a compiler diagnostic results. 

When a formal parameter represents an array, It must be 
dimensioned within the subprogram. If It is not declared, 
the array name must appear without subscripts and only the 
first element of the array is available to the subprogram. 



Permissible forms: 



Arithmetic expression 

. * 
Logical expression 

Constant 

Simple or subscripted variable 

Array name ** 

* 
FUNCTION subprogram name 

i 

Library function or subroutine name 
SUBR0UTINE name 



> See Section 7.13 



A calling program statement label, identified by 
suffixina the label with the character S - * 



This form must not be a result parameter, i.e., there must be no stores into 
it in the subprogram. 

Normally the array dimensions of the actual parameter as declared in the 
calling program will agree exactly with the dimensions of the formal para- 
meters in the subprogram (See Variable Dimensions, Section 5.2.1). If not, 
full account must be taken of the actual allocation of array storage (sec- 
tion 2.6.1) so the subprosraa can properly locate values in the array. 
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7.3 
MAIN 

PROGRAM The first statement of a main program may be of the following 
form: 

PR0GRAM name (f ,...,f ) 

The choice of program name is restricted in that it must not be 
that of any subprogram which is to be used with it (including 
library routines), nor any of the reserved names discussed in 
Section 15.6. 

If the PR0GRAM statement is omitted, a program name of "START." 
is assumed with filesets INPUT and 0UTPUT. 

The parameters f are symbolic names naming all input/output 
filesets required by the main program and its subprograms.* 
These parameters must satisfy the following conditions: 

1. The file name INPUT must appear if any READ i statement 
is included in the program or its subprograms. 

2. The file name 0UTPUT must appear if any PRINT statement 
is included in the program or its subprograms. 

3. The file name PUNCH must appear if any PUNCH statement 
is included in the program or its subprograms. 

A TUa fi"1p noma TAPES'** mnc(- qnnpqr -? f a "PF,4T)f"! r\\ 

WRITE(i,n), READ(i), or WRITE(i) statement is included 
in the program or its subprograms. (l is an integer 
from 1 to 99 with no leading zeros*) 

5. If I is an integer variable name for a READ(I,n), 
WRITE(I,n), READ(I), or WRITE(I) statement which 
appears in the program or its subprograms, the file 
names TAPEI , . . . , TAPEi ** must appear. The integers 
i..,...,i, "(with no leading zeros) must include all 
values which are assumed by the variable I. A file- 
set name TAPEI bears no relationship to the file 
being referenced by I in the above input/output 
statements.*** 



Input /output statements are discussed in Chapter 10. Fileset name substi- 
tution during program loading is discussed in section 13.0.2. 

** 

The use of the word "tape" in forming these names does not imply the use of 

actual tape devices . 

File names may be used as variables within a main program or subprogram 
and do not have any intrinsic value assigned them. That is, the statement 
'READ (INPUT, n) list' will cause an execution error if INPUT has not been 
set to some integer value i within the program; the file TAPEi must also 
have been declared in the PROGRAM statement. 
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6. If the program has been overlaid (see chapter 8) 
the overlay files ets must not appear. 



Example: 



PR0GRAM SH0W(INPUT,0UTPUT,TAPE6) 

READ 10, X 

NUNIT=6 

WRITE (NUNIT)B 

CALL 0UT(6,Y) 
PRINT 10, Z 
10 F0RMAT(F6.6) 
RETURN 
END 
SUBR0UTINE 0UT(I,B) 

WRITECDB 



RETURN 
END 

File names may be made equivalent and/or their buffer lengths 
may be specified at compile time by the f^ parameters in the 
PR0GRAM statement in the form: 

filename = buffer length (octal) 

or 

filename. = filename 

Example 1: 

PR0GRAM name (INPUT=2001) 

A file name INPUT jjs declared and it is to have a buffer length 
of 2001g words. The buffer length may not be specified to be less 
than 101s words. For example, PR0GRAM X (INPUT=20) will cause 
a buffer of IOI3 to be formed. If the buffer length is not 
indicated, a standard buffer size of IOOI3 (513 10 ) words is 
allocated. 

I/O buffers are further discussed in section 15.2. 
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Example 2: 

PR0GRAM name (0UTPUT,TAPE6=0UTPUT) 

TAPE6 is equivalent to the 0UTPUT file. That is, WRITE(6,n) 
list will produce output on file 0UTPUT. The file name to 
which an equivalence is made must appear previously in the 
parameter list and must not have been defined by equivalence. 

Example 3: 

PR0GRAM name (INPUT ,0UTPUT=1OOOO ,TAPEl=INPUT,TAPE2=0UTPUT) 

All input read from logical I/O unit number one will be 
taken from INPUT and all output written on logical I/O 
unit number two will be transmitted to the 0UTPUT fileset. 
A buffer length, is specified by 0UTPUT=1OOOO which esta- 
blishes a buffer length of 10000 . The file INPUT has 
a buffer length of 1001„. Separate buffers are not set 
up for TAPE1 and TAPE2. 



7.4 

SUBROUTWE 

SUBPROGRAM 



A subroutine subprogram is a computation procedure which 
may return zero, one, or more values. A value or type is 
not associated with the subroutine name itself. 



The first statement of a subroutine subprogram must have 
one of the following forms: 

SUBR0UTINE name (p , . . . ,p ) 

nTTTin/iTTmTTiTTl 

o u Distp u i xi\ £j name 

name is a symbolic name and p. are formal parameters; 
n may be 1 to 60. 

Restrictions on subprogram names are discussed in Sec- 
tion 15.6. 



The parameter list is optional. If no parameters are 
specified, the second form is used. 

No variable name used in a subroutine subprogram may be the 
same as the name in the SUBROUTINE statement. 

7.5 

CALL STATEMENT The executable statement in the calling program for referring 
to a subroutine is : 

CALL name 

or 
CALL name (p, , . . . ,p ) 
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where name is the name of the subroutine being called*, and 
Pi are actual parameters; n is 1 to 60. The name should 
not appear in any declarative statement in the calling 
program, with the exception of the EXTERNAL statement when 
name is also an actual parameter.** 

The CALL statement transfers control to the subroutine. 
When a RETURN statement is encountered in the subroutine, 
control is returned to the next executable statement fol- 
lowing the CALL statement in the calling program. If the 
CALL statement is the last statement in a DO loop, looping 
continues until the DO loop is satisfied. 

Examples : 

1. SUBROUTINE BLDX(A,B,W) 

W=2.*B/A 
HJURN 

Calls 

CALL BLDX(X(I),Y(I),W) 

STTM = Y/"n -4- STTM fnnnt-r-nl *-/»«-, ,*-«o *-« «-V>-»„ „«-„♦- ~» ~„ «- 

-' — \ — J ww. y wvsa.it. «. \jjl- 1. Vt-Ul.ua \-\J LUJ.O OkOWCUlCUL 

after subroutine is executed) 
CALL BLDX(SIN(5.),0VEC(L) + H/2. ,EVEC(I+J)) 



2. SUBROUTINE MATMULT 

CpMM0N/ITRARE/X(2O,2O) ,Y(20,20) ,Z(20,20) 
D^ 10 1-1,20 
D<0 10 J-1,20 
Z(I,J) « 0. 
D<& 10 K»l,20 

10 Z(I,J) - Z(I,J) + X(I,K)*Y(K,J) 

RETURN 
END 

Operations in MATMULT are performed on variables contained 
in the common block ITRARE. This block must be defined in 
all programs calling MATMULT, for example: 

C0MM0N/ITRARE/AB(2O,2O) ,CD(20,20) ,EF(20,20) 
CALL MATMULT 



* 



bee Section 15.6 for a discussion of names that may not be used. 
** 

Very obscure difficulties may occur if the same actual parameter is supplied 
for more than one formal parameter. Even more obscure versions of the same 
problems may occur if a subprogram has access to a particular variable 
through both a COMMON declaration and its parameter list. The difficulties 
arise because the variable may be altered in one guise without the program 
being aware that this also alters the other guise. 
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3. SUBR0UTINE AGMT CSUB, ARG) 
C0MM0N/ABL/XP(1OO) 
ARG = 0. 
D0 5 1=1,100 
5 ARG = ARG + XP(I) 
CALL SUB 
RETURN 
END 

Here the formal parameter SUB is used to transmit another 
subprogram name. The call to subroutine AGMT might be 
CALL AGMT (MULT, FACT0R), where MULT is specified in an 
EXTERNAL statement (Section 7.13). 

7.6 

FUNCTION 

SUBPROGRAM A function is a computational procedure which returns a 

value associated with the function name. The mode of the 
function is determined by a type indicator or the name of 
the function. See 15.6 for restrictions on subprogram names. 

The first statement of a function subprogram must be one 
of the following forms where name is a symbolic name and 
the p.^ are formal parameters.* A FUNCTI0N statement 
must have at least one parameter: 1 £ n £ 60. 

FUNCT10N name (p is ...,p ) 
type FUNCTI0N name (p ,...,p ) 

Type is REAL, INTEGER, D0UBLE PRECISI0N, D0UBLE, C0MPLEX, 
or L0GICAL. When the type indicator is omitted, the mode 
is determined by the first character of the function name 
according to the rule used for the implicit typing of 
variable names. The name of the function must be the name 
of a simple variable appearing in the function subprogram. 
Its value at the time of the return from the function sub- 
program is the value of the function. 

This variable must be assigned a value by appearing at 
least once in the function subprogram as any of the following 

On the left-hand side of a replacement statement 

As an element of an input list 

As an actual parameter of a subroutine reference (in 
which it must be assigned a value) 



* 



See footnote ** s section 7.5 
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7.7 

FUNCTION 

REFERENCE 



In the general form 
name (p 1 , . . . , 



<»n> 



name identifies the function referenced. It is a symbolic name 
and its type is determined in the same way as a variable iden- 
tifier. The d. are actual oarampfprR* n is 1 to 60. 



p. are actual parameters*, n 



A function reference may appear in any expression where a sub- 
scripted variable may be used. The evaluated function has a 
single value associated with the function name. 

When a function reference is encountered in an expression, 
control is transferred to the function subprogram.** A value 
for the function is computed and control is then returned to 
the statement containing the function reference. 

The function name may not appear in any declarative state- 
ment in the calling program except a type statement or in an 
EXTERNAL statement when the name is used as an actual parameter, 

Examples : 

1 T?TTMr"TTrtM PT}*Tun/i t»\ 

— • lunviiyii uKAxc.Kv.ft.jJD,; 

IF(A.GT.B)1,2 

1 GRATER-A-B 
RETURN 

2 GRATER-A+B 
RETURN 
END 

A reference to the function GRATER might be: 
W(I,J)-FA+FB-GRATER(C-D,3.*AX/BX) 

2. FUNCTION PHI (ALPHA, PHI2) 
PHI-PHI2 (ALPHA) 
RETURN 
END 

This function might be referenced: 

EXTERNAL SIN 

C-D-PHI(Q(K),SIN) 

The replacement statement in the function PHI will be executed 
as if it had been written PHI=SIN(Q(K) ) 



** 



See footnote **, section 7.5 

Except for statement functions (see section 7.8) and the Fortran intrinsic 
functions (see Chapter 11). 
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7.8 

STATEMENT 

FUNCTION 



A statement function is defined by a single expression and 
applies only to the subprogram containing the definition. 
The name of the statement function is a symbolic name; a 
single value is always associated with the name. 

A statement function definition has the form: 



name (p 



!••'•» 



Pj = E 



the formal parameters p . are symbolic names and 
n is 1 to 60 j The expression E mav be any arith- 
metic or logical expression, which may contain refer- 
ences to any other functions. The nonparameter names 
appearing in the expression have the same values as 
they have outside the function. 

A statement function reference has the form: 



name (p 



r ... 



*n> 



name is the name of the statement, function; the actual 
parameters p. may be any expressions. 

During compilation, the statement function definition is com- 
piled once in the subprogram and a transfer is made to this 
portion of the subprogram whenever a reference is made to 
the function. The value of the function is calculated using 
the actual parameters. Control is then returned to the state- 
ment containing the reference. 

Actual and formal parameters must agree in number, order, and 
mode. The mode of the evaluated statement function is deter- 
mined by the name of the function. However, the mode of the 
right-hand expression is determined by the highest mode of 
the formal parameters of the function. 

The statement function name must not appear in a DIMENSI0N, 
EQUIVALENCE, C0MM0N, or EXTERNAL statement; the name of the 
function and its formal parameters may appear in a type dec- 
laration but cannot be dimensioned. Statement function names 
must not appear as actual or formal parameters. 

A statement function definition must precede the first state- 
ment in which it is used, but it must follow all declarative 
statements (DIMENSION, type, etc.) which contain symbolic names 
referenced in the statement function, including formal para- 
meters. All statement functions should precede the first 
executable statement; otherwise, a warning diagnostic is 
provided. 

Omission of dimensioning information may cause later assign- 
ment statements to have the appearance of statement functions 
and lead to confusing diagnostics about statement functions. 
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A statement function may not reference itself and if such 
an attempt is made, a fatal diagnoitic is provided. 

Example definitions: 

L0GICAL A,B,EQV 

EQV(A,B)=(A.AND.B) .0R. (.N0T.A.AND. .N0T.B) 

C0MPLEX Z 

Z(X,Y)-(1.,O.)*EXP(X)*C0S(Y)+(O.,1.)*EXP(X)*SIN(Y) 

GR0PAY ( RATE , HRS , 0THRS ) «RATE*HRS+RATE* . 5*0THRS 

Examples of use: 

NETPAY=GR0PAY(1.25,H0URS(I),0VTIME(I))-DEDUCT(I)-TAX 
RESULT= (Z (BETA, GAMMA (I+K) ) **2-l . ) /SQRT(TW0PIE) 

7.9 

LIBRARY 

SUBPROGRAMS Subprograms that are used frequently have been stored in 
a reference file called a library. Library subroutine 
calls and function references may appear in the main pro- 
gram and/or subprograms in the same manner as do the pro- 
grammer 's own subprograms. The call acts as the request 
for the library program and causes a copy of its object 
code to be included during loading of the programmer's 
main program and any subprograms. 

One exception to this procedure is for the intrinsic 
functions listed in Chapter 11. The object code for 
such a function is compiled directly into a subprogram 
at each place where it is referenced. 

The names, parameters, and result type of standard lib- 
rary functions and subroutines are listed in Chapter 11. 
Errors detected by the library functions at execution time 
are listed in Chapter 15. 
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7.10 

PROGRAM 

ARRANGEMENT 



Frequently, the whole grouping of a main program, its 
subroutines and its functions are referred to as a 
" PROGRAM" . A typical arrangement of a main program 
and a set of subprograms follows. The main program 
does not have to appear first. 



"PROGRAM" 



PR0GRAM 



WHAT (INPUT , 0UTPUT ) 



< 



END 

REAL FUNCTI0N F1(P1) 

END 

SUBROUTINE ALPHA 



RETURN 
END 



See Chapter 14 for a discussion of a complete sample job 
The ordering of subprograms is significant in case the 
program is to be overlaid (see chapter 8) . 



7.7 7 

VARIABLE 
DIMENSIONS ON 
SUBPROGRAMS 



In many subprograms, especially those performing matrix 
manipulation, the programmer may wish to use different 
array dimensions each time the subprogram is called. 

This is accomplished by specifying the array name and 
its dimensions as formal parameters in the FUNCTION 
or SUBROUTINE statement. The corresponding actual para- 
meters specified in the calling program are used by the 
called subprogram. The dimensions that may be transmitted 
to a subprogram should be the same as the dimensions 
of the array in the calling subprogram. 
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The use of variable dimensions does not control 
storage allocation; it merely informs the subprogram 
of the dimensions in use in the calling program. 

The formal parameters representing the array dimensions 
must be simple integer variables. The array name must also 
be a formal parameter. The actual parameters representing 
the array dimensions must have positive integer values. 

The total number of elements of the corresponding array 
in the subprogram must not exceed the total number of ele- 
ments of the array in the calling program. 

Example : 

Consider a simple matrix add routine written as a 
subroutine : 

SUBROUTINE MATADD (X,Y,Z,M,N) 

DIMENSION X(M,N) ,Y(M,N) ,Z(M,N) 

D(f> 10 1=1, M 

D0 10 J=1,N 
10 Z(I,J)«X(I,J) + Y(i,J) 

RETURN 

END 
The arrays X, Y, Z and the variable dimensions M,N must 
all appear as formal parameters in the SUBROUTINE state- 
ment and also in the DIMENSI0N statement as shown. If 
the calling program contains the array allocation declar- 
ation 

DIMENSI0N A(10,10) ,B(10,10) ,C(10,10) ,E(5,5) ,F(5,5) ,G(5,5) ,H(10,10) 

the program may call the subroutine MATADD from several 
places within the main program as follows: 

CALL MATADD(A,B,C, 10,10) 
CALL MATADD(E,F,G,5,5) 
CALL MATADD (B,C, A, 10,10) 
CALL MATADD (B,C,H, 10, 10) 

The compiler does not check to see if the limits of the 
array established by the DIMENSION statement in the main 
program are exceeded. 
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7. 72 

Ebrrw 

STATEMENT This statement has a single purpose. It provides an alter- 

nate entry point to a function or subroutine subprogram. 

ENTRY name 

Name is a symbolic name and may appear within the subprogram 
only iu. tha ENTRY statement. Th« en £*.">* ^Rme may net hf» fol- 
lowed by a formal parameter list. Formal parameters, if -there 
are any, are the same as those which appear in the FUNCTI0N 
or SUBR0UTINE- statement. Each, entry name must appear in a 
separate ENTRY statement. 

ENTRY may appear anywhere within the subprogram except it 
should not appear within a DO; the ENTRY statement cannot be 
labeled. The first executable statement following ENTRY 
becomes an alternate entry point to the subprogram. 

In the calling program, the reference to the entry name 
is made just as if reference were being made to the func- 
tion or subroutine in which the ENTRY is embedded. That 
is, an equivalent parameter list must be used. The name 
may appear in an EXTERNAL statement and, if a function 
entry name | in a type statement. 

In a function subprogram, an ENTRY name assumes the same 
type as the name in the FUNCTI0N Statement. The ENTRY 
name may not be given type explicitly in the defining 
program. 

Examples: 

FUNCTION J0E(X,Y) 
10 J^E-X+Y 

RETURN /, 

ENTRY JAM 

IF (X.GT.Y) 10,20 
20 J(^E=X-Y 

RETURN 

END 
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Note that the formal parameters are X and Y, and that the 
function returned is that value stored in J$E even when 
entry is via JAN. This function could be called from the 
main program as follows: 



Z = A + B - J0E(3.*B,Q-1) 



R = S + JAM(Q,2,*P) 



With the JAM call, the values of Q and 2.*P are used as 
X and Y. The argument list matches that of the function 
name JpE f and the function value" J0E is returned and added 
to S. 

7.13 

EXTERNAL 

.STATEMENT When an actual parameter is the name of a function or a 

subroutine subprogram name, that name must be declared in 
an EXTERNAL statement in the call ing pro g r am. 

EXTERNAL name , name , ... 

1 i. 

The EXTERNAL statement must precede the first statement 
which calls a function or subroutine subprogram using the 
EXTERNAL name. When it is used, EXTERNAL always appears 
i,n the calling program; it may not be used with state- 
ment functions. If it is a compiler diagnostic is pro- 
vided. 

Examples : 

1; A function name used as an actus. 1 parameter renuires 
an EXTERNAL statement. 

Calling Program Reference 



EXTERNAL SIN 

CALL PULL(SIN,R,Q) 
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Called Subprogram 
SUBROUTINE PULL(X,Y,Z) 

Z=X(Y)' 

END 

But a function reference used as an actual parameter does not 
need an EXTERNAL statement. 

Calling Program Reference 



<"ATT TnTTT T /PT\i/HA /"\\ 

Called Subprogram 
SUBROUTINE PULL(X,Z) 

Z = X 

END 

2: A subroutine used as an actual parameter must have its name 
declared in an EXTERNAL statement in the calling program. 

C0MM0N/ABL/ALST (100) 
EXTERNAL RTENTA, RTENTB 
CALL AGMT (RTENTA, VI) 
CALL AGMT (RTENTB, VI) 

When a subprogram name appears as an actual parameter, any 
parameters to be associated with a call, of this subprogram 
must appear as separate actual parameters. 

Example: 

Calling Program 
EXTERNAL ADDER 

CALL SUB (ADDER, A, B) 

Called Subprogram 
SUBROUTINE SUB(X,Y,Z) 

CALL X(Y,Z) 

END 

CALL SUB ( ADDER (A, B)) would Imply that ADDER is a function 
value, not a subroutine name. 
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7.14 

BLOCK VATA 

SUBPROGRAM A block data subprogram may be used in place of DATA 

declarations in the procedural subprograms to enter 
data into labeled common blocks prior to program 
execution. The form is: 

BL0CK DATA name 



FORTRAN declaration* statements only 



END 

All elements in the common blocks must appear in a 
C0MM0N declaration in the subprogram even if they are 
not in the DATA declaration. 

Example : 

BL0CK DATA FIRST 
C0MM0N/ABC/A(5),B,C,/DEF/D,E,F 
C0MPLEX D,E 
D0UBLE PRECISI0N F 

DATA (A(L),L=l,5)/2.3,3.4,3*7.1/ !> B/2034.756/,D,E,F/2* 
1(1.0,2.5),7.86972415872E30/ 
END 

The BL0CK DATA name may not be the same as that of any 
other subprogram (including main and library subprograms) 
to be loaded with it. 

Standard Fortran requires that all DATA statements which 
set initial values of variables in labeled common blocks 
appear in BL0CK DATA subprograms. 



That is C0MM0N, DATA, DIMENSI0N, EQUIVALENCE and type statements 
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OVERLAY STRUCTURES 8 

8 . 1 Overlays 

When a program is too large for all parts of it to fit in the available 
central memory of the computer simultaneously as a linear load (the 
ordinary case) , it must be divided into pieces which can be fetched as 
needed to fulfill the program function. The technique employed in this 
division is called overlaying , and the pieces into which the program is 
divided are called links . The overall structure of the overlaid 
program is a tree consisting of a root (the first link) and a set of 
overlays (the remaining links). Each link is a collection of the 
subprograms defined by the source program or selected from a library. 
The grouping of the subprograms into links is determined by the 
programmer on the basis of the logical and temporal structure , of the 
program. 

Even in cases where a program will fit in the memory available, it may 
be advisable to use overlays to reduce the cost or to improve 
turnaround by permitting the program to execute in a smaller central 
memory field. 

Each overlay is a group of subprograms plus a pseudo-main program 
introduced to define the initial entry to the overlay. Overlays are in 
absolute (as opposed to relocatable) form which is loaded into central 
memory at the request of the program being executed. The process of 
loading a link during execution is very fast, consisting essentially of 
one read operation. Since loading a link is such a simple operation, 
the subprogram required to perform the load is quite small compared 
with a full-scale loader which must be able to relocate and link 
together subprograms, search libraries, create memory maps, etc 

The distinction between overlay generation (which requires the 
full-scale loader), and overlay execution (which requires only a small 
library routine to load the overlays which have already been created) 
must be kept in mind throughout the following discussions. This point 
is a frequent source of confusion in the use of overlays. For more 
information see CALIDOSCOPE Control Statements and L3 CAL CLDR which 
describes an alternate method of defining overlays with increased 
flexibility, and usually without requiring modification of the source 
program. 

When a link is loaded during execution it is in the form in which it 
was written by the loader and loading it does not alter the other links 
which remain in memory. In particular, if a link is loaded, executed > 
and overlaid , aj^ IS. then loaded again, all storage cpntajneq in i£ i£ 
reset to contain xJd& original values regardless of any changes that may 
have been made during the first execution. On the other hand, common 
blocks which are initialized by DATA statements contained in the 
programs making up the link will be reset only if the common blocks 
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themselves are contained in the link. DATA statements are effective 
only at the time the overlays are generated and the values given are 
incorporated into the link which actually contains the common block in 
question. ( 

Blank common storage is normally allocated at the end of the lowest 
level link which declares it. If it is not declared in the root, its 
contents will be lost whenever the link it follows is overlaid. 

A library search is made for unsatisfied externals after the decks have 
been read for each overlay. An external will be unsatisfied at this 
point if it is referenced by a deck in the current overlay but not 
defined by either the root or one of the decks just read or by the 
associated primary , if the current overlay is a secondary (see next 
section) • 

8-2 Overlay Execution 

When an overlaid program is to be executed , the root is loaded first 
and remains in memory throughout the program execution. The root may 
call in primaries which may in turn call in their associated 
secondaries. 

As an example* consider a program which which is divided into three 
phases which are executed consecutively. In an ordinary linear load 
this program might occupy memory in the following fashion during 
execution: 



FL -* 



Memory 
Address 







time 



LIBRARY 



FINAL 



PROCESS 



INITIAL 
MAIN 



In this case the memory occupied by PROCESS and FINAL is idle while the 
INITIAL phase is being executed. Once this phase is complete, the 
space it occupies will be idle for the rest of the time of execution. 
Similar considerations apply to the PROCESS and FINAL phases. In 
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addition, parts of the library may be used by only one or two phases, 
but this will be ignored here to keep the example simple. 

If the program were converted to an overlay structure, the above map 
could be replaced by one like this: 



time 



FL 



Memory 
Address 



"- 



INITIAL 



PROCESS 



FINAL 



LIBRARY 



MAIN 



In this arrangement MAIN and LIBRARY are loaded first as the root, 
which then calls the link INITIAL. Once the processing performed by 
INITIAL is completed, the link PROCESS is loaded into the memory space 
previously occupied by INITIAL. Finally, PROCESS is replaced by the 
link FINAL to complete the processing required. 

The process illustrated above may be continued so that, for example, 
the PROCESS overlay itself might be subdivided in a manner similar to 
that used for the entire program to give the following form which is 
still more compact: 



FL ■ 



Memory 
Address 



l- 



INITIAL 



time 
GET 
PROCESS 





GET PUT 



FINAL 



LIBRARY 



MAIN 



Clearly this process of subdivision cannot be carried on indefinitely 
without the overhead for additional overlays becoming too great. The 
program designer should ensure that excessive overlay requests are 
avoided by grouping interrelated subprograms together in a link where 
possible. 

The overlays INITIAL, PROCESS, and FINAL may call subroutines contained 
in the root or reference labeled common blocks in the root with no more 
overhead than if they were in the same linearly loaded program (i.e., 
no overlay structure). Of course such a subroutine may not cause ££e_ 
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rQUtine which Called ii to. M overlaid H there is £0. £e_ return JtS2 1M 
calling routine. In general, external references from overlays must be 
directed toward the root. For example, a primary overlay may contain 
references to subprograms and common blocks in the root but not to 
those in a secondary overlay. A seconday may contain references to the 
root or to its associated primary. 

The identification assigned to each link consists of a pair of numbers 
in the range 0-63 (0 to 77B) called the primary and secondary 
identifiers. The root is distinguished by having both these identi- 
fiers equal to zero. An overlay whose primary identifier is not zero 
but whose secondary identifier is zero is a primary. An overlay whose 
identifiers are both non-zero is a secondary. An overlay whose primary 
identifier is zero and whose secondary identifier is non-zero is an 
error. 

The program may have only the root and at most one primary and one 
secondary (for a total of three links) in memory at one time. In the 
preceding example, MAIN and LIBRARY would constitute the root, and 
INITIAL, PROCESS, and FINAL would all be primaries. If PROCESS were 
subdivided as suggested, then the secondaries GET and PUT would have 
been introduced and the identifiers might be assigned as follows (where 
the parenthesized numbers are the identifier pairs for the links): 



time 



FL 



Memory 
Address 



INITIAL 
(1.0) 



GET 
(2,1) 



PUT 
(2,2) 



FINAL 
(3,0) 



PROCESS (2,0) | 
LIBRARY 



MAIN (0,0) 





Since the maximum value an identifier may have is 63 (77B) this limits 
the number of primaries which may be included in an overlay tree as 
well as the maximum number of secondaries associated with a given 
primary. Note that the primaries immediately follow the root (which 
consists of MAIN and the library routines) in memory and each secondary 
immediately follows its associated primary (the primary with which it 
shares its primary identifier). A secondary is never loaded unless its 
associated primary is in memory. When a new primary is loaded during 
execution, any previously loaded primary (and secondary, if present) is 
destroyed. When a new secondary is loaded, any old secondary is 
destroyed, but the common primary remains. The root always remains 
throughout all overlay loading. 
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8-3 overlay Directive? 

Every link begins with an OVERLAY directive. Each OVERLAY directive is 
inserted in the program deck immediately preceding the decks Which make 
up the link to which it applies. OVERLAY directives encountered by the 
compiler are copied immediately to the fileset on which object decks 
are being written* from which they are to be read by the loader. An 
OVERLAY directive begins in column seven and has the following form: 

OVERLAY (fn,Ii, 12, Cnnnnnn) 

where 

fn fileset name onto which the generated overlay is to be written 

11 Primary identifier (in octal) 

12 Secondary identifier (in octal) 

Cnnnnnn (optional): C is the character c and nnnnnn is 6 octal 
digits. If absent, this overlay is loaded normally. if 
present and blank common is assigned at the next lower level, 
this overlay is loaded nnnnnn words from the start of blank 
common. This provides a method for changing the size of blank 
common when the overlays are generated. 

Both the primary and secondary identifiers must be in octal* However, 
the identifiers given in the CALL OVERLAY statement (see below) may be 
decimal. 

The first overlay card must have a fileset name. Subsequent cards may 
omit fn; i.e., the form of the card is OVERLAY (11 , 12, Cnnnnnn) and the 
overlay is written on the same fileset. 

The program card for the main program in the root must specify all 
needed fileset names, such as INPUT, OUTPUT, TAPEl, etc., for all 
links. 

The pseudo-main program which defines the entry to each overlay differs 
from the real main program (in the root) in that it normally contains a 
RETURN statement to send control back to the routine which called the 
overlay, and the pseudo-main program contains no file declarations on 
the program card. 

The structure selected for the overlaid program is imposed by ordering 
the overlay generation input as follows: 

1. The input which defines tne root appears first. 
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2. The input for each secondary overlay appears following its 
associated primary in the tree but preceding any subsequent 
primary. 

There are many possible trees into which a program may be divided and 
it is up to the program designer to choose an appropriate one. 

In order to create the overlay structure illustrated above and write it 
on the fileset named FILE, the input to the compiler could be a set of 
source decks and loader directives like the following: 

OVERLAY (FILE, 0,0) 

(Decks for MAIN) 
OVERLAY (FILE, 1,0) 

(Decks for INITIAL) 
OVERLAY (FILE, 2,0) 

(Decks for PROCESS) 
OVERLAY (FILE, 2,1) 

(Decks for GET) 
OVERLAY (FILE. 2, 2) 

(Decks for PUT) 
OVERLAY (FILE, 3,0) 

(Decks for FINAL) 
End of file 

8-4 Overlay Calls 

When an overlay is to be executed, it is called by the Fortran 
statement: 

CALL OVERLAY (fn, 11, 12, p) 

where 

fn Hollerith constant or a variable containing the fileset name 

11 Primary identifier of the overlay 

12 Secondary identifier of the overlay 

E Recall parameter. If p is 6HRECALL, the overlay is not to be 
reloaded if it is in memory; otherwise, specify zero. 

All four parameters are required. 

OVERLAY is a library subroutine which loads and executes the overlay 
requested. 
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The CALL OVERLAY statement not only loads the indicated overlay but 
also passes control to the first executable statement of the pseu- 
do-main program in that overlay. No arguments can be transmitted 
except through shared common blocks. When the called pseudo-main 
program executes a RETURN, program control is given to the first 
executable statement after the CALL OVERLAY statement just as if the 
overlay pseudo-main program were the subroutine OVERLAY. 



Examples: 



DATA FILE/6HXYPL0T/ 

CALL OVERLAY (FILE, 4, 0,0) 

NAME = 5LXTREE 

CALL OVERLAY (NAME, 1 , 2 , 6HRECALL) 

CALL OVERLAY ( 5HXFILE, 7 , 3 , ) 
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iuvut/qutw lists khv formats 



Data transmission between storage and external units 
requires the F0RMAT statement (for coded mode only) and 
the I/O statement proper (Chapter 10). The I/O state- 
ment specifies the logical input/output unit, the pro- 
cess (READ, WRITE, etc.) and a list of any data to be 
moved. The unit of information transmitted to/from an 
external unit is called a record.* The F0RMAT statement 

tmr\ r\ r> A ■£ A f\ i~* t-lri /~\ -m i-i tn -r-* sr± t* -T -r\ t.tV» -T/-»T-* +-T-»/-\ •~l«-»+---» -J r-t f rtit«/1 y-»-w 1-1 1 « « /\ J 

o^c^xi. _i_t-o uiic iuaniic-L xn wuxcn uiic uaua j-.o j_ v_/Lii_jna ^.l p xa^cu. 

in records. In binary I/O statements no F0RMAT -state- 
ment is used. 

9.1 

INVUT/ OUTPUT 

LIST The list portion of an input/output statement specifies 

the data items and the order, from left to right, of 
transmission. The input /output list can contain any num- 
ber of elements in the following form: 

a i s a o > a Q » • • • 

The list items a^ may be array names, simple or subscripted 
variables, or variables with implied D0 loops. Constants, 
functions, and expressions are not allowed. Items are 
separated by commas, and their order must correspond to any 
format specification associated with the list. Coded re- 
cords are always read or written until the list is satis- 
fied, or, on reading, an end-of-file is reached. The inter- 
action between a FORMAT and a list is further explained in 
Section 9.7. 

Subscripts of variables in an I/O list may be only in the 
following forms: 

c*I+d 

I+d 

c*I 

I 



c and d are unsigned integer constants, and I is a simple 
integer variable, previously defined, or defined within 
an implied D0 loop. 



In the discussion presented in this Chapter the word "record" is used to 
refer to a unit record. The usual input unitrecord is an 80 column punched 
card, and the usual output unit record is a printed line of up to 133 
characters. Unit records on other storage media are described in Chapter 13 
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Examples of lists, used here with READ statements, fol- 
low. Note the number following the word READ is not 
part of the list, but refers to the FORMAT statement to 
be described in Section 9.2. 

Examples : 

READ 100, A,B,C,D 

READ 200, A,B,C(I),D(3,4),E(I,J,7),H 
READ 101, J,A(J),I,B(I,J) 
READ 102, DELTA(5*J+2, 5*1-3, 5*K) ,C,D(I+7) 
READ 202, DELTA 

READ 300, A,B,C,(D(I),I=l,10),E(5,7),F(J),(G(I),H(I),I-2,6,2) 
READ 400, I,J,K,(((A(II,JJ,KK),II=1,I),JJ=1,J),KK-1,K) 
READ 500, ((A(I,J),I=l,10,2),B(J,l),J-l,5),E,F,G(L+5,M-7) 
9. I.J 

TKa.YU>mJA&loYl Part or all of an array can be represented for trans- 

mission as a single 1/0 list item by using an implied DO 
notation of the general form: 

(C(A(I,J,K),L 1 =m 1 ,m ,m ),L =n., ,n ,n ) ,L„=p, ,D„,pJ 

J- J. *. J Z.J.ZJ J X 'I. "J 

which is proportionately simpler if the array has fewer 
subscripts, and where 



m. 



i* 1 ^^ are unsigned integer constants or simple integer 
variables. If m ,n or p is omitted, it is 
assumed equal to 1. 

I,J,K are subscripts of A. 

L 1 ,L 2 ,L 3 are index variables I,J,K in some order. 

During execution, each, subscript (index variable) is set 
to the Initial index value: L = m , L = n , L = p 
The first (innermost) index variable defined* in 3 the list 
is incremented first, following the rules for nested DO loop 
execution. When the first index variable has reached its 
limit , m„, it is reset to m ; the next index vari- 
able to the right is incremented, and the process is repeated 
until all the index variables have been incremented to their 
maximum value. If mi is greater than m 2 initially, Li is 
given the value m only. 

An array name which appears without subscripts in an 1/0 
list causes transmission of the entire array by columns 
(as in Section 2.6.1). This form is sometimes referred 
to as "short list" notation. Thus if B is dimensioned as 
DIMENSI0N B(10,15) 

the statement 

READ 13, B 

is equivalent to 

READ 13,((B(I,J),I=1,10),J=1,15) 

but the first form is faster. 
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An implied D^ loop can be used to transmit a simple 
variable more than one time. For example, the list 
item (B,A(K), K=l,5) causes the transmission of variable 
B five times. A list of the form K, (A(I) ,I=1,K) is per- 
mitted and, when reading, the input value of K is used 
in the implied D^f loop . 



Examples: 

1 C-i itml q -i -m-ril n q/1 Tiffl 1 r\nrt 1 T o t- T 1- dm a 

READ 400, (A (I) , 1=1, 10) 
400 F0RMAT (E20.10) 

With this format, the READ statement is equivalent to the 
following D0 loop.* 

D0 5 1=1,10 
5 READ 400, A (I) 

2. READ 100, ((A(JV,JX),JV=2,20,2),JX=1,30) 
READ 200, (BETA(3*J0N+7),J0N=J0NA,J0NB,J0NC) 

READ 300 (((ITMLST(I,J+1,K-2),I=1,25),J=2,N),K=IVAR,IVMAX,4) 

3. READ 600, (A(I) ,B(I) ,1=1,10) 
600 F0RMAT (F10.2,E6.1) 

With this format, the previous READ statement is equivalent 
to the D0 loop:* 

D0 17 1=1,10 
17 READ 600,A(I),B(I) 

4. PRINT 700,(1,1=1,10) 

This statement will print the index variable I, 1=1,2 ,3, .. .10. 



Equivalence of the forms here depends on the fact that the F0RMAT state- 
ment specifies the same number of items as the -list without the implied 
D0. If the F0RMAT statement were different, the same results would;not 
be produced since a formatted READ statement always begins a new unit 
record. See Section 9.7. 
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5, Nested implied D0 list items. 

READ 100,( ( ( ( (A(I,J,K)0(I ) L) I C(J,N),I=1 I 1O) I J=1,5) I K=1,8), 
1L=1,15),N=2,7) . 

Data is transmitted in the following sequence (summarized) : 

A(1,1,1),B(1,1),C(1,2),A(2,1,1),B(2,1),C<1,2). . . 

. . ^(10 > l,l),B(10,l),C{l,2),A(l f 2,l),B(l,l),C{2,2). . . 

. . .A(10,2,1),B(10,1),C(2,2). . .A<10,5,1),B(10,1),C(5,2). # , 

. . .A(10,5,8),B(10,1),C(5,2). . .A(10,5,8),£(10,15),C(5,2). . .. 

. . .A(10,5,8),B(10,I5),C(5,7) 
6 • The following list item will transmit the array E{3,3) by columns: 

READ 100,((E(I,J),I=1,3),J=1,3) 
The following list item will transmit the array E(3,3) by rows: 

READ 100,( (E(I,J),J=1,3), 1=1,3) 
7. Short list notation. 

DIMENSION MATRDC(3,4,7) 

READ 100, MATRIX 

The above items are equivalent to the following statements: 
DIMENSION MATRDX(3 ,4,7) 
READ 100,(((MATRIX(I,J,K)J=1,3),J=1,4),K=1,7) 

This list is equivalent* to the nest of DO loops: 

D05K=1,7 

D0 5 J=l,4 

D0 5 1=1,3 

5 READ 100, MATEUX(I,J,K) 

provided the FORMAT specifies one item per record, e.g., 

100 F0RMAT (16) 

9.2 

FORMAT 

DECLARATION Coded input/output statements require a NAMELIST (see 

section 9.9) or a FORMAT declaration which contains con- 
version and editing information relating to internal/ 
external structure of the corresponding I/O list items. 
A FORMAT declaration has the following form: 

FORMAT (spec > . . . ,k(spec , . . .) f spec , . . .) 
i m n 

Spec, format specification 

k optional repetition factor which must be an unsigned integer 
constant. 



See previous footnote to this section. 
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The F0RMAT declaration is non-executable and may appear anywhere 
in the program. F0RMAT declarations must have a statement label 
in columns 1-5. 

The data items in an I/O list are converted from one representa- 
tion to another according to F0RMAT conversion specifications. 
An input conversion specification converts a coded data item 
into the internal word structure specified. Output conversions 
perform the reverse task. To be meaningfully converted, the data 
must agree with the format specifications in order and type. No 
type checking between list and F0RMAT is performed during execu- 
tion. Formats may also contain editing specifications. In the 
examples below, the lower case letter "b" will often be used to 
Indicate a blank. 

9.2.1 Conversion Specification Summary : 

Ew.d Single precision real with exponent 

Fw.d Single precision real without exponent 

Dw - d Double precision real with exponent 

Gw.d Single precision real with or without exponent 

Iw Decimal integer conversion 

$w Octal integer conversion 

Aw Alphanumeric conversion 

Rvv Alphanumeric conversion 

Lw Logical conversion 

w, n_ and 6_ are unsigned integer constants; w specifies the 
field width in number of character positions in the external 
record and d specifies the number of dibits to the ri a ht of 
the decimal, i.e., the fractional portion, within that field. 
The total field widths specified for one record must be < 80 
characters for card input/output or £ 132 characters for~printer 
or £ 137 for tapes (see Chapter 11, LNGBCD) . 

Each complex data item in a list is converted on Input/ 
output according to a pair of consecutive Ew.d or Fw.d 
specifications. 

Example: 

COMPLEX A, 3 
PRINT 10, A 
10 F0RMAT (1X,F7.2,F9.2) 

READ 1 1 , B 
11 F0RMAT (E10.3.E10.3) 

9*2.2 Editing Specification Summary: 

+nP Scaling factor (decimal) 

wX Space w columns to the right 

wH Insert /Receive w characters 

Tn Tab to column n 

Z Print leading zeros 

/ Begin new record 

*...* Insert/Receive character (no *) string between * delimiters 

f...$ Insert/Receive character (no ±) string between ± delimiters 



9.3 

CONVERSION 

SPECIFICATIONS 



9. 3. J 

Ew.d Output 

(REAL) 



In general, the following can be stated about numeric conversion 
specifications : 

On input , blanks in numeric fields are interpreted as zeros; 
but a field of all blanks is converted to a minus zero.* 
The use of the plus sign is optional. A minus zero value 
may be tested for by use of the function MZERO (see 11.2.25). 

On output , if the coded representation of a number is not 
large enough to fill the field allowed, it is right-adjusted 
in the field with leading blanks inserted. If too large, 
the field is filled with ^s. When a zero is put out in a 
real format, no zeros appear after the decimal point. This 
provides a convenient distinction between an actual zero and 
a very small number. 

Real numbers in storage are converted to the coded character 
form for output with the E conversion, Ew.d. The field 
occupies w positions in the output record; with the real 
number right justified in the form: 



.a±eee 



or 



.aE±ee 



lOOSeee^ 323 



0<ee^99 



b^ indicates blank character or - sign, a's are the most 
significant digits of the integer and fractional part and 
eee are the digits in the exponent. If d is zero or blank, 
digits to "the right of the decimal do riot appear." 
Field width w must be sufficient to contain the sig- 
nificant digits, signs, decimal point, the letter E, and 
the exponent. Generally, w >^ d+6 . Positive numbers need 
not reserve a space for the sign of the number. 

Tf the field is not wide enough to contain the output value, ^'s 
are inserted in the field. If the field is longer than the output 
value, the quantity is right justified with blank fill to the left 
If the value is infinite or indefinite (see Appendix A), the 
field contains R or I respectively. 



Examples: 

PRINT 10, A 
10 FORMAT(1X,E10.3) 



A contains -67.32 
or +67.32 



Printed Result: b-.673E+02 or bb.673E+02 

PRINT 10, A 
10 FORMAT (IX, E13. 3) 

Printed Result: bbbb-.673E+02 or 



bbbbb.673E+02 



PRINT 10, A 
10 FORMAT (IX, E8. 3) 



Printed Result: +&&+++ or 

Provision not made for sign 



.673E+02 
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Minus zero does not exist in all Fortran systems. Programs which depend on it may 
not be transferrable to such systems. 



9.3.2 
Bu.d Input 

(REAM 



ThfcvE specification converts the number in the input field to a real number and 
stores it in the proper location. 

Subfield structure of the input field: 

input field 




integer 



fraction' exponent 

— decimal point 



The total number of characters in the input field is specified by \v: this field is 
scanned from left to right: blanks are interpreted as zeros. 



The integer subfield begins with a sign (+ or -) or a digit and may contain a 
string of digits. The integer field is terminated by a decimal point, D, E, -, -, 
or the end of the input field. 

The fraction subfield which. begins with a decimal point may contain a string of 
digits. The field is terminated by D, E, -, -, or the. end of the input field. 

The exponent subfield may begin with D, E, -r or -. When it begins with D or E, 
the - is optional between D or E and the string of digits of the subfield. The 
value of the string of digits in the exponent subfield must be less than 323. 

Trailing blanks are interpreted as zeros. 



Permissible subfield combinations: 

-rl.tS327E-04 
-32.7210 
+325-^,3 
.G29E-1 
^T3G 
13(5 

. 07025431 
'E-00 (interpreted as zero) 



integer fraction exponent 
integer fraction 
integer,, exponent 
fraction exponent 
integer only 
integer only 
fraction only 
exponent only 



In the Lw.d specification, d acts as a negative power-of-ten scaling factor uhe: 
an external decimal point is not present. The internal representation oi the 
inptu quantity is: 

,,-.,, , „-d -, -(exponent s-ubiield t 
(integer subtieldixlO \I0 



q-7 



For example, if the specification is E7.8, the input quantity 32G7+05 is converted 
and stored as: 32G7xlO*' ti xl0 5 =3.207. 

A decimal point in the input field overrides d. The input quantity 3.G7294+5 read 
by an E9.d specification is always stored as 3.G720xl0 5 . When d docs not appear, 
it is assumed to be zero. 

The field length specified by w in Ew.d should always be the same as the length 
of the field containing the input number. When it is not, incorrect numbers may 
be read, converted, and stored as shown below. The field w includes the 
significant digits, signs, decimal point, E or D, and exponent. 



Example of incorrect data input : 

READ 20,A,B,C 
20 F0RMAT (E9.3,E7.2,E10.3) 

Input quantities on the card are in three contiguous fields columns 1 
through 24; 



9 5 10 

^— - | ^ ^ j 

+6.47E-01-2,36+5.321E+02bb 



The- second specification (E7.2) exceeds the width of the second field by 
two characters. 

Reading proceeds as follows; 



10 



+6. 47E-011 -2.36+5 .321E+02bb 



+647E-01 l-2.36+5| | 321E+02hhl 



+6.47E-01-2.36+5 |.321E+02bb] 

First, +6.47-01 is read, converted, and placed in location A. Next, -2. 36^5 
is read, converted, and placed in location B. The number actually desired 
was -2 t 36, but the specification error (E7.2 instead of E5.2) caused the two 
extra characters to be read. The number read (-2.36+5) is a legitimate 
input representation under the definitions and restrictions. 

Finally, .321E+0200 \a read, converted, and placed in location C. Here again, 
the input number is legitimate and is converted and stored, even though it is 
not the number desired. 
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The above fXAmp.e illustrate* a s.iuation where numbers are incorrectly rcsd, 
converted, and stored, and yet there is no immeaiate indication that in error 
has occurred. 

Examples of Ew.d conversion on input: 



Input Field 

+143.26E-03 

-12.437629E+1 

6936E+004 



327.625 



Specifi- 
cation 

El 1.2 
E13.6 
E9J0 



E7.3 



Converted 

Value 

.14326 

-124.37629 

.008936 

327.625 



Remarks 

All subfields present 
All subfields present 

No fraction subficld; input 

number converted as 8936. 

„-in-10+4 

No exponent subficld 



9.3.3 

Fw.d Output 

(read 



IT 



-.0003627+5 


Ell. 7 


-36.27 ■• 


Integer subficld contains 
■;-.-. - only 


-.0003627E5 


El 1.7 


-36.27 ..-.;. 


Integer subfielc. contains 
- only 


blanks 


Ew.d 


-0 . 


All subfields empty 


1E1 


E3.0 


■10'." - : 


No fraction subfieid, inpi 



E+06 

l.bEbl 
l.Elbb 



El 0.6 

E6.3 
E6 3 



10. 
100 



10 



number converted as l.xlO* 

No integer or fraction sub- 
field; zero sto.-ea regardless 
of exponent field omenta 

Blanks are interpreted as 
zeros 

Trailing blanks in exponent 
are interpreted as zeros. 



The field occupies w positions in the output record; the cor- 
responding list item must be a real (i.e., floating point) 
quantity, which appears as a decimal number, right justified: 



ba. 



.a. a. 



b_ indicates a blank or - sign. The a's represent the most 
significant digits of the number. The number of decimal places 
to the right of the decimal is specified by d. If d is zero 
or omitted, digits to the right of the decimal point do not 
appear.* If the number is positive, the + sign" is suppressed. 
If the field is too short to accommodate the number, £ fills 
the field. If the field is longer than required to accom- 
modate the number, the number is right justified with blank 
fill to the. left. If the output value is infinite or inde- 
finite (see the end of section A. 3), the field contains R or 

I respectively. 



When card fields are punched under F-specif ication, there is no way to sup- 
press the decimal point except by programmed statements which punch the in- 
tegral and decimal parts of the real number as two integers in adjacent 

fields. 
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Examples: 



PRINT 10, A 

10 FORMAT (IX., F7. 3) 

Printed Result: b32.694 

PRINT 11, A 

11 FORMAT (1X,F10.3) 

Printed Result: bbbb32.694 
PRINT 12, A 

12 F0RMAT(1X:,F6.3) 

Printed Result: *¥?¥?¥ 

PRINT 13, A, A 

13 F0RMAT(1X,F4.3,F6.3) 

Printed Result: .327b0.327 



A contains +32.694 



A contains -32.694 

no provision for - sign 
A contains .32694 



9.3,4 
Fw.d Input 

(REAL) 



This specification is a modification of Ew.d. The input 
field consists of an integer and a fraction subfield. An 
omitted subfield is assumed to be zero. The restrict! ens 
described under Ew.d input apply, except that the scale 
factor will affect the F format (see Section 9.4). A decimal 
point punched in the field on the card will override the deci- 
mal point in the FORMAT specification. 
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Examples: 



Input Field 
367.2593 


Specifi- 
cation 


Converted 
Value 


Remarks 


F8.4 


367.2593 


Integer and fraction field 


37925 


F5.7 


.0037925 


No fraction subficld; input 
number converted as 

_7 


.62543 


F6.5 


.62543 


No integer subficld 


.62543 


F6.2 


.62543 


Decimal point overrides d 
of specification 


+144.15E-03 


F11.2 


.14415 


Exponents are legitimate 



5bbbb 



F5.2 



500.00 



in F input and may have 
P-scaling 

No fraction subficld; input 
number converted as 



"500'00x 10 



-2 



a z k 



Gw.d Output 
(REAL) 



The real data will be represented by V conversion unless the magnitude 
of the data exceeds the range that permits effective use of F conversion. 
In this case, the E conversion will represent the external output. There- 
fore, the effect of the scale factor is not implemented unless the magnitude 
of the data requires E conversion. 

When F conversion is used under Gw.d output specification, 4 
blanks are inserted within the field, right justified. There- 
fore, for effective use of F conversion, d must be <_ w-6 . 

Examples: 



PRINT 101, XYZ 

101 FORMAT (1Xi,G10. 3) 

Printed Result: 77.132bbbb 



XYZ contains 77.132 



PRINT 101, XYZ 

101 FORMAT (1X,G10.3) 

Printed Result : bb . 121E+07 
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9.3.6 

GM.d Input 
fRFA/.l 



I'.w.d specification is similar to the Fw.d INPUT specification. 



9.3.7 

Vw.d Output 

[VOUSLF.) 



The field occupies w positions of the output record, the list item is a double 
precision quantity which appears as a decimal number, right justified: 



b .a. . .a±eee 

or 
b .a. . .aDiee 



100^eee=s323 



0<ee^99 



b indicates blank or minus zero. The specification for 
D conversion corresponds to the Ew.d output specification, 



9.3.8 
'iX'J.d Input 



D conversion corresponds to E conversion except that the list 
variables must be double precision names. D is equiva- 
lent to E as the beginning of an exponent subfield on the 
input record. 

Example: 

D0UBLE Z,Y,X 
READ1,Z,Y,X 
1 FORMAT (D18.ll, D15.D17.4) 



Input Card: 



(- 



6.31675298443E-03 +2.718926453147 62934775288G9D-09 
18 15 r 



9.3.9 

Iw Output 

(LVTECEk) 



I specification is used to convert decimal integer values. The output quantity 
occupies w output record positions, right justified: 

ba. . .a 

b is a blank or - sign. The a's are the most significant 

decimal digits of the integer. If the integer is positive, 

the + sign is suppressed. The maximum integer magnitude that can be 

put out is 281474976710655 (2 48 - 1). If the integer is greater, 

the symbol R is placed right justified in the field. 
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If the field w is larger than required, the output quantity is 
right justified with blank fill to the left. If the field is 
too short, ^s occupy the field. If the internal value is -0 
and a field descriptor of II is given, - will be produced. 



Example : 



PRINT 10,I,J,K I contains -37(12 ^ 

J contains -r4TG2 ( .)37 
10 FORMAT (IX, 18, 110,15) K contains +13 



Printed Result: 



bbb-37G2bbb4762937bbbl3 



10 



9 3 7 

Iw Input The field is w characters in length, the list item is an inte- 

(TMTrcn?) g er variable, and the input data item is a decimal integer con- 
stant. The input field w consists of an integer subfield, which 
can contain only the characters +, .-, through 9, or blank. 
When a sign appears, it must precede the first digit in the field, 
Blanks (caution, this includes trailing blanks) are interpreted 
as zeros. The value is stored right justified in the specified 
variable. The maximum input value is 576460752303423487 (2 -1). 

Example: 

READ 10,I,J,K,L,M,N 
10 FORMAT (13,17,12,13,12,14) 

Input Card: 



/l39bb- 


-15bbl8bb7 


b3blb4 


1 — ,~— *- 




- -v~ 


— ,—• 


3 


7 


2 3 


2 4 


In storage 








I contains 


139 




J 




-1500 




K 




18 




L 




7 




M 




3 





104 
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9.3. 11 
0w Output. 

[OCTAL] 



specification is used to convert octal integer values. The 
output quantity occupies w output record positions right justified; 

aa. . .a 

where a is an octal digit. If w is 20_ or less, the 
rightmost w digits occur. If w is greater than 20_, the 
number of right justified in the field with blanks to the 
left of the output quantity. A negative number is output 
in its seven's complement internal form. 



9.3. 72 

0w Input 

(OCTAL) 



Octal integer values are converted under specification. The field is w. 
characters in length, and the list item must be an integer variable. 

The input field w consists of an integer subfield only (maximum 
of 20 octal dibits) containing only the characters +, — , 
through 7 or blank. 

Only one sign may precede the first digit in the field. All 
blanks (including trailing blanks) are interpreted as zeros. 
Fields which contain only blanks are interpreted as -0. 

Example: 

TYPE INTEGER P.Q.R 
READ 10,P,Q,R 
10 F0RMAT (010,012,02) 

Input Card: 



n 



3737373737666b6644b444-0 

10 12 2 

In storage: 

P 00000000003737373737 
Q 00000000686066440444 
R 77777777777777777777 
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A negative octal number is represented internally in seven's complement form 
(20 digits) obtained by subtracting each digit of the octal number from seven. 
For example, if -703 is an input quantity, its internal representation is 
77777777777777777074. 

That is, 77777777777777777777 

- 00000000000000000703 

77777777777777777074 



9.3.13 

Aw Output 
.(ALPHANUMERIC! 



9.3. 74 

Am Input 
[ALPHANUMERIC] 



A conversion is used to output alphanumeric characters. If w 
is K> or more, the quantity appears right justified in the out- 
put field, blank fill to left. If w is less than 10, the out- 
put quantity represents the leftmost w characters of the inter- 
nal word (see below) . Binary zero characters are converted or 
output to 55B (blank). 

This specification accepts FORTRAN characters including blanks. 
The internal representation is display code (see Appendix A); 
the field width is w characters. 

If w exceeds 10, the input quantity is the rightmost 10 characters in the field. 
If w is 10 or less, the input quantity is stored as a left justified BCD word; the 
remaining spaces are blank filled. 



Example: 

■RTTAn i n c> p d\ 
10 F0RMAT (A8,A8,A4) 

Input Card: 



o. 



LUX MENTIS LUX 0RBIS 

8 8 4 

In storage: 

Q LUXbMENTbb 
P ISbLUXb0bb 
RBISbbbbbb 



9.3.75 

Ru) Output 
(ALPHANUMERIC 



This specification is similar to the. Awjputput with the fol- 
lowing exception. If w is less than 10^ the output quantity 
represents the rightmost w characters of the internal word. 
If a binary zero is put out as a character, it is converted 
to the character code for blank. 



The number of characters which may be stored in a data item varies from one 
Fortran system to another. Ten is an unusually large limit. See Table 
B of Appendix A for examples of internal storage of alphanumeric data. 
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9.3.76 
RiV Input 

(ALPHANUMERIC) 



This specification is the same as the Aw Input with the fol- 
lowing exception. If w is less than lOfthe Input quantity 
is stored as a right justified BCD word; the remaining spaces 
are filled with binary zeros. 

Example: 

READ lO.Q.P,^ 
10 FORMAT (R8,R8,R4) 

Input Card: 



^LUX MENTIS LUX 0RBIS 

8 8 4 

In storage: 

Q OOLUXbMENT * 
P OOISbLUXb0 * 
0Q0000RBIS * 



9.3.7 7 

Luo Output 

[LOGICAL) 



L specification is used to output logical values. The output field is w characters 
long, and the list item must be a logical element. 

A value of true or false in storage causes w-1 blanks fol- 
lowed by a T or F to be output. 



Example: 

L0GICAL I, J, K, L I contains -0 

PRINT 5,1, J, K, L K contains -0 

5 F0RMAT (4L3) 

Result: bbTbbFbbTbbT 



J contains 
L contains -0 



9.3. U 
Lu) Input 

[LOGICAL] 



This specification accepts logical quantities as list items. The field is 
considered true if the first non-blank character in the field is T or false if 
it is F. An all-blank field is considered false. 



■Here the represents the true zero (all zero bits) , not the character 
zero. 
** See footnote to section 9.3.15. 
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9.4 

n? SCALE FACTOR 



9.4.1 

Fw.d Scaling input 



The D, E, F, and G conversion may be preceded by a scale 

factor which is: External number = Internal number 

n _scale factor. 
xlO 

A scale factor is of the form: 

nP 

where n, the scale factor, is an unsigned or negative integer 
Constant in the range -8 <_ n <_ 8. 

When an input/output statement is initiated, a scale factor 
of zero is assumed. Once a scale factor has been given, it 
applies to all subsequently interpreted F,E,G, and D speci- 
fications, until another scale factor is encountered, and 
then that scale factor is used. For example, OP nullifies 
the effect of a previous scale factor. 

The scale factor is not automatically reset if the F0RMAT 
is rescanned. 

Example: 

F0RMAT(3PE12.6,F1O.3,OPD18.7, -IP, F5.2) 

3 
The E12.6 and F10.3 specifications are scaled by 10 , the 

D18.7 specification is not scaled, and the F5.2 specif i- 

tion is scaled by 10~1 . 

The scaling specification nP is not associated with a list 
element . 

The format (3P,3I9,F10. 2) is the same as the format 
(3I9,3PF10.2). 



The number in the input field is divided by 10 and stored, 
For example, if the input quantity 314.1592 is read under 
the specification 2PF8.4, the internal number is 
314. 1592xl0- 2 = 3.141592. 

Output 

The number in the output field is the internal number mul- 
tiplied by 10 n . In the output representation, the decimal 
point is fixed; the number moves to the left or right, 
depending on whether the scale factor is plus or minus. 
For example, the internal number 3.1415926538 may be repre- 
sented on output under scaled F specifications as follows: 
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Specification 

F13.6 

1PF13.6 

3PF13.6 

-1PF13.6 



Output Representation 

3.141593 

31.415927 

3141.592654 

.314159 



9.4.2 

Eui.d ok Vw.d 

Scaling 



Input 

The scale factor has the same effect as in the F speci- 
fication unless the field has an exponent. In that event, 
there is no effect. 

Output 

The scale factor has the effect of shifting the output num- 
ber left n places while reducing the exponent by n. Using 
3 . 141592&538 , some output representations corresponding wO 
scaled E specifications are: 



Specification 

E20.2 
1PE20 . 2 
2PE20.2 
3PE20.2 
4PE20.2 
5PE20.2 
-1PE20.2 



Output Representation 



0.31 

3.14 

31.41 

314.15 

3141.59 

31415.92 

0.03 



E+01 
E-00 
E-01 
E-02 
E-03 
E-04 
E+02 



9.4.3 

Gvo.d Seating 



Input 

Gw.d scaling on input is the same as Fw.d scaling on input. 

Output 

The effect of the scale factor is suspended unless the mag- 
nitude of the data to be converted is outside the range 
that permits the effective use of F conversion. 
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9.5 

EV1T1UG 

SPECIFICATIONS 



Editing specifications unlike the previous format conver- 
sion specifications have no list elements associated with 
them. These specifications allow for insertion or skipping 
of characters in the input/output record and for starting 
a new record. 



9.5.7 
(SKIP) 



This specification may be used to include w blanks in an 
output record or to skip w characters on an input record 
to permit spacing of input/output quantities. OX is not 
permitted; bX is interpreted as IX. In RUN Fortran, the 
comma following X i* optional but it is required in standard 
Fortran. 
Examples : 



INTEGER A A contains 7 

PRINT 10, A, B, C B contains 13.6 

C contains 1462.37 
10 F0RMAT(3X,I2,3X,F6.2,6X,E12.5) 



Printed Result 



bbb7 bbbbl3 . 60bbbbbbb0 . 14624 E+OA* 



tiff/ Oatpuut 
[HOLLERITH] 



READ 11, R, S,T 
11 FORMAT (F5.2,3X,F5.2,6X,F5.2) 

Input Card: 



[ / l-i.62bb$13.7SbC0STbl3.97 
Li storage: 



R 14.62 
S 13.7S 
T 15.97 



With this specification 6-bit characters (given in the 
format itself), including blanks, may be put out in the form 
of comments, titles, and headings, w, an unsigned integer, 
specifies the number of characters to the right of H that 
are transmitted to the output record; w may specify a maxi- 
mum of 133 characters. H denotes a Hollerith field; the 
comma following the field is optional. 

Instead of prefixing the Hollerith field with wH, it may 
be defined by being contained between asterisks or not equal 
signs. (Therefore, *s are prohibited in a field delimited 
by asterisks and ^s are prohibited in a field delimited by 
not equals .J No count is necessary. In either case, it is 
not necessary to set off a Hollerith field from other format 
specifiers (if any) by a comma. 



The same result is obtained with the F0RMAT (IX , 14 , F9 . 2 ,E18.5) . 
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Examples : 

Source program: 

PRINT 20 
20 F0RMAT(28HbBLANKSbC0UNTbINbANbHbFIELD.) 

or 

20 FORMAT (*bBLANKSbC0UNTbINbANbHb FIELD. *) 

produces the. printed result; 

BLANKSbC^UNTblNbANbHb FIELD. 

Source program: 



PRINT 30, A -j A contains 1,5. 

> In the F0RMAT the comma after 
30 F0RMAT(6HbLMAX=,F5.2)J the = sign is optional. 



produces the printed result: 

LMAX=bl.50 

9.5.3 

uM Input The H specification may be used to read Hollerith characters into an existing 

( HOLLERITH ) field within the FORMAT specification. 



Example: 



Source program: 

READ 10 
10 FORMAT (27Hbbbbbbbbbbbbbbbbbbbbbbbbbbb) 



Input Card 



bTHIS IS A VARIABLE HEADING 

27 cols 

After READ, the F0RMAT statement labeled 10 contains the alphanumeric in- 
formation read from the input card; a subsequent reference to statement 10 in 
»n output statement acts as follows: 

PRINT 10 

produces the printed result: 
THIS IS A VARIABLE HEADING 
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9.5.4 

HW RtWid When an input/output statement is initiated, a new record 

is always started .* In addition, a new record is started 
when the end of the format is encountered if another list 
element is specified. 

A slash (/) character in the specification list also signals 
the beginning of a new record. Consecutive slashes may appear 
in a format and they need not be separated from the other spe- 
cifications by commas. During output, the slash may be used 
to skip lines, cards, or tape records. During input, it spe- 
cifies that the next record is to be read. Format/list inter- 
action when a slash is encountered is further explained in 
Section 9.7. K(/) results in K-l lines being skipped, except 
„_ <-i^ „„a „c t-Ko format- in which case K lines are skipped. 

ex L. LUC cuu \j x. i_«.iw j-v^ — »— — — — -- 



Examples: 

1) PRINT 10 

10 F0RMAT <6X, 7HHEADING/ / /3X, 5MNPUT, 2X, GII0UTPUT) 

Printout: 

HEADING line x 

(blank) line 2 

(blank) line 3 

INPUTbb^UTPUT line 4 

Each line corresponds to a record. The second and third records aro 

null and produce the line spacing illustrated. 

2) PRINT U, A, B, C, D 

11 F0RMAT (1X,2E11.3/1X,2F7.3) 

In storage: 

A -11.6 

B .325 

C 46.327 

D -14.261 

Printout: 

b-0.1L6E+O2bb0.325E+00 
b46. 327-14. 261 



Note that the first character of each record is interpreted by the 
printer as a carriage control character and is not printed. Unless 
provision is made for this character in the F0RMAT statement, e.g., using 
a wX or wH specification, information placed in this position is lost 
and unexpected spacing of the output may result. 
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3) PRINT 11,A,B,C,D 

11 F0RMAT(1X,2E11.3/1HO,2F7.3/) 

Printout : 

b-0.116E+02bb0.325E+00 line 1 

-(blank) - line 2 
b46. 327-14. 261 line 3 

-(blank) - line 4 

Line 2 on the printout above is blank because the zero in 
the first position of second output record (which actually 
prints as line 3) causes a double space before printing of 
the record.* 

4) PRINT 15,(A(I),I=1.9) 

15 F0RMAT (8HbRESULTS,2(/) (4X,3F8.2)) 



Printout: 








RESULTS 






line 1 






- (blank) - 


line 2 


3.62 


-4.03 


-9.78 


line 3 


-6.33 


7.12 


3.49 


line 4 


6.21 


-6.74 


-1.18 


line 5 



9.5.5 
Tabulation T B_ 



nt PnTn (tab) specification is available for column selection control. 
When Tn is used, the format pointer is skipped to column n of the ex- 
ternal record, and the next format specification is then Frocessed. 
n may be any unsigned integer < 132. If n=0, column 1 is assumed. 

Tn Input (tab) 

On input records, Tn enables data to be skipped or to be read in any 
desired order. If n > 80 when reading data from cards, the column 
pointer is moved to column n but a succeeding specification would 
read only blanks. 



The first character of an output record is interpreted by the printer 
as a carriage control and is not printed. See Section 10.1. 
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Su.pp>tp£><6<L(M 



Example: 

Input list: A,J,K 

Format specification: (E7.2,T20,I2,T15,I4) 

1 7 10 15 20 
Input card: /bb34,21bbb37blb572b4b 

I 

In storage: A contains 34.21 
J contains 40 
K contains 572 

Tn_ Output (tab) 

On output, T enables information to be placed anywhere on the record 
in any order desired. The output line image is blanked prior to the 
actual formulation of a line. 

Examples : 

1. Format specification: 

(T80 , *C0MMENTS* , T60 , *HEADING4*T40*HEADING3*T20 , *HEADING2 * , T2 , 
*READING1*) 

Printed output (numbers indicate print positions)* 

1 19 39 59 79 

I I I I I 
HEADING1 HEADING2 HEADING3 HEADING4 COMMENTS 

2. Output list: K,L,M 

Format specification: (T2Q,I4,T36,I2,T28,I4) 

In storage: K 372 

L 

M 4499 

Output record: 19 27 35 



9.5,6 

lQA.0 Z Output 



bbbbbbbbbbbbbbbbbbb 3 7 2bbbb 44 9 9bbbbb 



The appearance of a Z in an output specification acts as 
a switch causing leading zeros to be printed for all succeeding 
integer output quantities. The appearance of -Z turns the switch 
off, and normal output resumes. This switch is not automatically 
reset when a format is rescanned. 

The compiler may give a non significant warning diagnostic when 
the Z specification is used. 



The first character position of a printed line is always used for 
carriage control. 
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Example: 

In storage: 



R 
I 
J 
X 
K 



-632.43 

32 

-3762 

37.95 

4 



Output list: R,I,J,X,K 

format specification: (lHb,F7.2,Z,I4,I6,F8.2,-Z,I3) 

Output: -632.430032-03762 37.95 4 



9.6 

REPEATS 
FORMAT ' 
SPECIFICATIONS 



Format specifications may be repeated by using an 
unsigned integer constant, k (called a repetition 
factor), as follows: k spec or k(specs), where spec 
is any conversion 

and specs is any set of format specifications. If k 
is omitted, it is assumed to be 1. For example, to 
print two quantities K,L: 

PRINT 10,K,L 
10 F0RMAT(I2,I2) 

Specifications for K,L are identical; the F0RMAT state- 
ment may also be: 

10 F0RMAT(2I2) 
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When a group of format specifications repeats itself as 
in: F0RMAT(E15.3,F6.1,I4,I4,E15.3,F6.1,I4,I4), the use 
of k produces: FORMAT (2 (E15. 3, F6. 1,214) ) . Two levels of 
parentheses are allowed in addition to the outer paren- 
theses delimiting the format specification. 

Examples : 

F<#RMAT(3(4KbR^W,)*bY0URbB0AT*) 

F0RMAT(2(1X,I5,3(F8.5,2X))) 

F0RMAT(1HO,5I1Q/(1OF1O.5)) 

9.6.1 

Untimitzd 

GlOUP'i If the end of the format specification is encountered and 

the input/output list is not exhausted, a new record is 
started. The format scan reverts to that parenthetical 
group terminated by the last preceding right parenthesis, 
or if none exists, then to the first left parenthesis of 
the F0RMAT statement. 

For example, in the output format: 

22 F0RMAT(lOHOR0WbNO.b-I2/(3X,6(IlO,2Hb=FlO.4))) 

the group denoted by the arrows is the group repeated and 
is used to specify the format of output records 2,3,... if 
there are more than 13 output list elements. 

Example : 

DIMENSION X(4,4) 



PRINT 100,(I,I=1,4),(J,(X(J,K),K=1,4),J=1,4) 
100 F0RMAT(15X,*ARRAYbX*/lX,*C0LUMNb*,4l6/(lX,*R0W*,I2,2X,4F6.1)) 

produces the following printout : 







ARRAY X 




COLUMN 


1 


2 


3 


4 


R0W 1 


1.1 


6.2 


7.6 


4.9 


R0W 2 


2.3 


8.9 


6.7 


2.6 


R0W 3 


4.6 


1.5 


4.3 


9.5 


R$W 4 


7.8 


2.3 


5.7 


1.4 
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Note that if a scale factor has been used, the last 
scale factor in effect will be used if the format is 
repeated, thus possibly changing the conversion for 
elements which appeared before the first scale factor 
in the format specification. 

Example: 

F0RMAT(F1O.5/(5E15.8,-2PF9.6)) 

If the list is not exhausted at the end of the format, the 
format will repeat starting with the 5E15.8 specification 
but with a scale factor of -2. 



9.7 

FORMAT ANV 
LIST 
INTERACTION 



When processing of a coded input/output statement is begun, 
a scan of the referenced F0RMAT statement is initiated. 
Each action then depends upon information jointly pro- 
vided by the next element of the input /output list and 
the next specification obtained from the format. 

When a READ statement is executed, the next record is read 
immediately. Additional records are read only as the 
format specifications demand. Any unprocessed charac- 
ters of the current record will be skipped at the time 
of termination or when a slash is encountered. 

When a WRITE or PRINT statement is executed, writing of 
the next record begins. Additional records are written 
as the format specifications demand. 

Whenever a new record is required (as when a slash is 
encountered) processing of the new record begins with 
the first character position of the record, proceeding 
from, left to right. 

Except for the effect of repetition factors, the format 
is interpreted from left to right. Except for implied 
DO loops, the input/output list is also interpreted from 
left to right. To each conversion specification inter- 
preted in the format, there corresponds one element in 
the input/output list, except that a complex element 
requires the interpretation of two F, E, or G specifica- 
tions. (The conversion specifications, E, G, D, F, I, 
fi, L, A, R, are described in section 9.3.) 

Conversions are made as specified (if legal), regardless of the 
type designation of the list element. 
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No list item is associated with an editing specification 
(see Section 9.5). Whenever an editing specification is 
encountered in the format, it is executed. When a con- 
version specification is encountered, the list is examined 
first. If there is a list element, the indicated conver- 
sion is made. If no list element is found, the input/ 
output statement is terminated. 

Whenever the format scan reaches the end of the format, the 
input/output statement is terminated if the list is found 
to be exhausted. If not, a new record is started and the 
format scan proceeds as described in Unlimited Groups, 



9 8 
l/ARIABLE 

FORMAT 



Format specifications may be specified at the time of pro- 
gram execution. The specifications, including left and 
right parentheses but not the statement label nor the word 
'FORMAT', may be read with A conversion, generated by an 
ENCODE statement (Section 10.6), or defined in a DATA 
statement and stored in an array. The name of the array 
containing the specifications is used in place of the 
FORMAT statement label in the associated input/output 
operation. The array name that appears, with or without a' 
subscript, specifies the location of the first word of the 
F0RMAT information. 

A variable format may be modified by replacing individual 
elements in the array containing it with the appropriate 
Hollerith constant. 



Examples : 

1. Assume the following format specifications: 

(1X,E12.2,F8.2,I7,2E20.3,F9.3) 

This information can be punched in an input card and 
read by the statements of the program such as: 

DIMENSI0N IVAR(3) 
READ 1, (IVAR(I),I=1,3) 
1 F0RMAT (3A10) 

The elements of the input card are placed in storage 
as follows : 



IVAR(l) 
IVAR(2) 
IVAR(3) 



(1X,E12.2, 
F8.2,I7,2E 
20.3,F9.3) 



A subsequent output statement Itt the same program can 
refer to these format specifications as: 

PRINT IVAR, A,B,I,C,D,E 
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9 9 

NMEL1ST 

STATEMENT 



This produces exactly the same result as the statements: 

PRINT 10, A,B,I,C,D,E 
10 FORMAT (1X,E12.2,F8.2,I7,2E20.3,F9.3) 

2. DIMENSION LAISK3) ,LAIS2(3) ,A(6) ,LSN(3) ,TEMP(3) 
DATA LAIS1/25H(1H0,2F6.3,I7,2E12.2,3I1)/,LAIS2/ 
1 23H(lX,I6,6X,3F4;i,2E12.2)/ 

Output statement: 

PRINT LAIS1,(A(I),I=1,2),K,B,C,(LS N (J),J=1,3) 
which is the same as: 

PRINT 1, (A(l) ,1=1,2) ,K,B,C, (LSN(J) ,J=1,3) 

1 F0RMAT(1HO,2F6.3,I7,2E12.2,3I1) 

Output statement: 

PRINT LAIS2, LA, (A(M) ,M=3, 4), A(6) , (TEMP(I) ,1=2,3) 
which is the same as : 

PRINT 2,LA,(A(M),M^3,4),A(6),(TEMP(L),L=2,3) 

2 F0RMAT (1X,I6,6X,3F4.1,2E12.2) 

3. DIMENSION LAIS(3), VAIUE(8) 

DATA LAIS/27H(I3,14HbMEANbVALUEbIS,F6.3)/ 

Output statement: 

WRITE (10,LAIS)NUM,VALUE(6) 

which is the same as: 

WRITE (10,10)NUM,VALUE(6) 
10 F0RMAT (I3,14HbMEANbVALUEbIS,F6.3) 

Variables placed in a NAMELIST statement may be converted 
on input or output without the need for format specifica- 
tions. Instead the input record contains the names of the 
variables to be read and the values the variables are to 
be set to. The output record contains the names of the 
variables (as seen in the program) and the values of the 
variables converted to BCD. 

The form of the NAMELIST statement is: 

NAMELIST /y/a /y /a 9 /.../y./ a ./.../y /a 
Xi/ ^ linn 

y ± is an identifier of 1-7 characters. 



i ± is a list of the form b b ,...b,,...,b where b. i< 
a variablp or an arrrm ^mS i m 1 



a 

a variable or an array name. 
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Each y is a NAMELIST name; it must be different from all 
other names in the program. After it is defined, the name 
may appear only in READ or WRITE statements as described 
in Chapter 10. A NAMELIST name may be defined only once 
in a subprogram. 

In any given NAMELIST statement, the list, a, of variable 
names or array names between the NAMELIST identifier, y, 
and the next NAMELIST identifier (or the end of the state- 
ment if no NAMELIS*T identifier follows) is associated with 
the identifier, y. 

Examples : 

PROGRAM MAIN 
NAMELIST/NAME1/N1,N2,R1,R2/NAME2/N3,R3,N4,N1 

SUBROUTINE XTRACT(A,B,C) 
NAMELIST/CALL1/L1,L2,L3/CALL2/L3,P4,L5 

A variable name or array name may be an element of more 
than one such list. In a subprogram, b^ may be a formal 
parameter identifying a variable or an array, but if it 
is an array, it may not have variable dimensions. 

Chapter 10 describes the format of the input and output 
records and their interaction with the corresponding READ 
and WRITE statements. 
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INPUT /OUTPUT STATEMENTS 7 



The following definitions apply to all I/O statements: 

i logical I/O unit number: 

an integer constant of one or two digits (the first 
must not be zero) or 

an integer variable with value from to 99. 

n F0RMAT declaration identifier: 

statement number or 

dimensioned variable identifier (with or without sub- 
scripts) which references the starting storage location 
of format information 

L the input/output list (Section 9.1) 

x namelist identifier (Section 9.9) 

Logical I/O unit numbers do not have any predetermined 
mode (coded or binary) associated with them. The type of 
I/O statement determines the mode to be used. For each 
unit number i referenced by the program, there must be 
a file name TAPEi declared in the PR0GRAM statement.* 

The filesets INPUT, OUTPUT, and PUNCH are needed for the READ n, 
PRINT n, and PUNCH n I/O statements, respectively. Other I/O 
statements may manipulate these filesets (except that" f ileset INPUT 
may not be written) . This is done by using a logical unit num- 
ber whose file name is equivalenced to the desired file.*i 

There are two modes of reading or writing information on a 
f ileset: binary and coded. The way in which the information 
is organized depends upon the mode as well as the I/O device 
on which the fileset is recorded.* Mixed mode filesets, i.e., 
filesets written partly in binary mode and partly in coded mode, 
should not be used. 

Coded Mode 

The information in Fortran coded mode files is organized into 

unit records. For the card reader or punch, a unit record is 

an 80-character card image. For the printer 133 characters 

(1 print line) constitutes a unit record. A unit record 

on magnetic tape contains up to 136 characters written in even 

parity.** 



Chapter 13 contains a further discussion of filesets, file names, physical 
and logical records. 

Section 7.4 shows how filenames are equivalenced. The footnote to 
Section 10.4 shows an example of equivalencing one of these files. 

The parity of a magnetic tape is the means by which the reading and writing 
of the information on tape is checked for validity. 
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Binary mode 

A binary record on punched cards consists of all cards between 
the beginning of the deck and the first E0R (a card with 7-8-9 
punched in column 1) or between consecutive E0Rs. A binary 
record on magnetic tape is written in odd parity.* 



When no other I/O device is assigned to a fileset, the fileset 
is recorded on disk or ECS, 



10.1 

OUTPUT STATEMENTS 



PRINT n,L 



Information in the list (L) is transferred from the storage lo- 
cations to the standard output fileset (OUTPUT) as line images, 
133 characters or less per line in accordance with the FORMAT 
declaration, n. The maximum physical record length is 133 char- 
acters, but the first character of each unit record (line) is 
hot printed, as it is used for carriage control when printing. 
Each PRINT statement or each new record starts a new print line. 

The CDC system line printer uses a vertical spacing of six lines 
per inch, so the standard eleven inch page has room for sixty- 
six lines. To allow reasonable margins printing normally runs 
from line six through line sixty-one for a total of fifty-six 
lines per page. The horizontal spacing is ten characters per 
• *Qw*i j. nn«_ers St reniOi-e statxons u.o not necessarily ioixow tue 
same conventions. The IBM printers use a vertical spacing of 
eight lines per inch. The following table will correspond to the 
IBM line printer positioning if all line numbers have 1 added. 
Example: Control Character 9 causes a skip to line 62. 

Control Character Effect (all actions are taken prior to printing the line) 

Blank Single space 

Double space 
Triple space 

+ Suppress space 

1 Skip to line 7 (of next page in most cases) 

2 Skip to next of lines 10, 37 (next half page) 

3 Skip to next of lines 9, 27, 45 (next third page) 

4 Skip to next of lines 8, 22, 36, 50 (next quarter page) 

6 Skip to line 1 just after concave paper fold 

7 Skip to line 1 just after convex paper fold 

8 Skip to line 1 

9 Skip to line 62 

X Single space and enter automatic skip suppress mode 

(passing line 62 will not cause a skip to line 7); 
this mode continues until the mode is left 

Y Single space and leave automatic skip suppress mode. 

Z Single space but suppress automatic skip for this line 

The "convex" fold in computer output is at the bottom of the output when 
folded normally and viewed by the prospective reader. It is the fold which 
is convex with respect to ■ the viewer. "Concave" refers to a fold in the 
opposite direction 

An unrecognized control character will be treated as a blank. 



See third footnote on previous page and the WRITE (i)L statement in following 
page. 
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PUNCH n, L 

Information is transferred from the storage locations given 
in the list (L) to the standard Hollerith punch fileset 
(PUNCH) . Information is transferred as 80 character or less 
unit records in accordance with the F0RMAT declarations n. 

WRITE (i,n)L 

This form transfers information from storage locations given 
by the list (L) to the specified output unit (i) according 
to the F0RMAT declaration (n) . The number of words in the 
list and the F0RMAT declaration determine the number of records 
that are written as discussed in Chapter 9. 

If the file is to be printed, the first character of each 
record is not printed but is used as a carriage control charac- 
ter. If the programmer fails to allow for a carriage control 
character, the first character of the output data is lost on 
the printed listing and erratic line skipping may result. 

WRITE(i)L 

This form transfers information from the storage locations 
give by the list (L) to a specified output unit (i) in binary 
mode. If L is omitted, the WRITE (i) statement acts as a do- 
nothing statement. See READ(i)L in Section 10.2. 

Examples : 

DIMENS I0N FSTNME ( 2 ) , FIRMNM ( 4 ) 

DIMENSION M(10, 5), B(4000) , AMAX(IO) , C(20,20), LSTNME(2) 
L0GICAL A(260) 
REAL ITMN0 

INTEGER ACCT, TELN0, SHPDTE 
WRITE(IO) A,B 
D0 5 1=1,10 
5 WRITE(6) AMAX(I) ,(M(I,J) ,J=1,5) 

PRINT 51, (A(I), 1-1,20) 

51 F0RMAT (X23HTRUTHbMATRIXbVALUESbARE/ (3X, 4L3) ) 
PUNCH 52, ACCT, LSTNME , FSTNME , TELN0 , SHPDTE , ITMN0 

52 F0RMAT(I8,3X,4A1O,2X,I1O,1X,I5,F8.2) 
WRITE(2,53)B,C,D 

53 F0RMAT(4E21.9) 

WRITE (2, 52) IC0DE, FIRMNM, L0C 
WRITE(2,54) 

54 F0RMAT (*bTHISbSTATEMENTbHASbN0bDATAbLIST . *) 
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WRITE (i,x) 

Write coded information to unit i as follows : 

1. One record consisting of a $ in column 2 immediately 
followed by the NAMELIST identifier, x. 

2 . As many records as are needed to contain the current 
values of all variables in the NAMELIST associated with 
x. Simple variables are written as v=c. 

Elements of dimensioned variables are written in the order 
in which they are stored internally. (Section 2.6.1). 

The data fields are made large enough to include all sig- 
nificant digits. Logical values appear as .T. and .F. 
No data appears in column 1 of any record. 

3. One record consisting of a $ in column 2 immediately 
followed by the letters END. 

The records written by such a WRITE statement may be read by a 
READ(i,x) statement where x is the same NAMELIST identifier. 



10.2 

KFAV STATEMENTS READ n.L 



One or more unit records are read* from the standard input file 
(i.e., fileset INPUT). Information is converted from left to 
right in accordance with format specification (n) , and it is 
stored in the locations named by the list (L). Each new READ 
statement starts a new record. 



Example : 



READ 10,A,B,C 
10 F0RMAT (3F10.4) 



A program should not expect to be terminated for encountering an end-of-file 
(EOF), since provision is allowed in the language to test for an EOF, the 
IF (EOF, i) statement. Instead the job is terminated only when on a subsequent 
READ, the EOF indicator has not been turned off by the test statement. List 
items unsatisfied when the EOF is encountered will be set to minus zero in 
memory. For historical reasons, INPUT is inconsistent with all other file- 
sets in that any EOR will be treated as if it were an EOF by a coded READ. 
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READ (i,n)L 

This form transfers information from a specified unit (i) 
to storage locations named by the list (L) , according to the 
format specification (n). The information is read in coded 
mode. 

The number of words converted and records read is determined 
by the list and format specifications, which must conform to 
the record structure on the specified unit.* Each READ (i,n) 
statement starts a new record. See footnote to READ n,L. 

READ (i)L 

This form transfers one binary record of information 

from a specified unit (i) to the storage locations indicated 

by the list (L) . 

Records to be read by READ(i) should be written in binary 
mode. The number of words in the list of READ(i)L must 
not exceed the number of words in the corresponding WRITE 
statement?* If the list is longer than the record, 
the excess words in the list are left unchanged in memory. 
If the list is shorter than the record, the untrans- 
mitted words are skipped. Each READ(i) statement starts a 
new record. 

Examples; 

DIHENSI0N C(264) 

DIMENSI0N BMAX(IO), M2(10,5), A(100,50) 
D0UBLE PRECISI0N DB(4) 
DIMENSI0N Z(8) 
READ (10) C 
D0 7 1=1,10 
7 READ(6) BMAX(I), (M2 (I , J) , J=l ,5) 

READ (5) (skip one logical record on unit 5) 

READ (6) ((A(I,J),I=1,100),J=1,50) 

READ(10,50)X,Y,Z 

50 F0RMAT (3F10.6) 
READ(10,51) DB 

51 F0RMAT (4D20.12) 
READ 51, DB 
READ(2,52) (Z(J),J=1,8) 

52 F0RMAT (F10.4) 



Attempting to use more than 136 characters of a unit record will normally 
terminate the job, but see Chapter 11: LNGBCD. 

&£ ,._ _. .._ _„. ,„_„„ 

See Chapter 11: the LENGTH function. 
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READ (i,x) 

The current file of unit i is scanned until either an 
end-of-file or a record with a $ in column 2_ immediately 
followed by the NAMELIST name, x, with no embedded blanks 
but followed by a blank is located. When the name, 
x, is encountered, succeeding data items are read until a $ 
is encountered. The data items are placed in the variables 
and arrays associated with the NAMELIST x. If no data 
block with the correct name is found, a fatal error exit 
occurs. If no data are to be read by this statement, a 
void block with the correct name should be used. 

Data items are separated by commas. They may be in any 
of three forms : 



v = c 

a = d 1 ,...,d 

a(n) = d ...,d 
l m 

v is a variable name 

c is a constant 

a is an array name 

n is an integer constant subscript 

The d i are simple constants or repeated constants of the 
form k*c, where k*c implies that the constant, c, is to 
be repeated k times. 

Example: The statements: 

PROGRAM SHW0RD (INPUT , 0UTPUT , TAPE 7 =INPUT) 
DIMENSI0N Y(3,5) 
LOGICAL L 
C0MPLEX Z 

NAMELIST/HURRY/I1,I2,I3,K,M,Y,Z,L 
READ (7, HURRY) 

and the card input records, starting in Col. 2: 

$HURRY 11=1, L=. TRUE., 12=2, 13=3. 5, Y(3,5)=26,Y(1,1)=11, 

12.0E1,13,4*14,Z=(1.,2.), 

K=16, M=17$ 

produce the following values upon execution: 

11=1 Y(l,2)=14.0 

12=2 Y(2,2)=14.0 

13=3 Y(3,2)=14.0 

Y(3,5)=26.0 Y(l,3)=14.0 

Y(l,l)=11.0 K=16 

Y(2,l)=120.0 M=17 

Y(3,l)=13.0 Z-(l.,2.) 
L=.TRUE. 
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The number of constants, including repetition, given for 
an unsubscripted array name must equal the number of ele- 
ments in that array. For a subscripted array name, the 
number of constants need not equal, but may not exceed, 
the number of array elements which follow the specified 
element, plus one. 



v=c 



a~d 1 , . . . ,d . 



a(n)=d ,. . . ,d r 



variable, v, is set to c 

the values, d ,...,d., are stored 
in conscCULiVc elements o± array, < 
in the order in which the array is 
stored internally. 

elements are filled consecutively 
starting at a(n) 



The specified constant of the NAMELIST statement may be 
integer, real, double precision, complex of the form (c. ,c_) 
or logical of the form .T. , .TRUE.,.F., .FALSE. A logical 
or complex variable may be set only to a logical or com- 
plex constant, respectively. Any other variable may be 
set to an integer, real or double precision constant. Such 
a constant is converted to the type of its associated vari- 
able. 



Constants and repeated constant fields may not include 
embedded blanks, 
in data records. 



TIT I 1 ,- 

DiaiiKS , auwcVci 



may ajjjjear exsewhere 



70.3 

FIIE HANVLING 

STATEMENTS 



A maximum of 120 characters per input record is permitted. 
More than one record may be used for input data. All 
except the last record must end with a constant followed 
by a comma, and no serial numbers may appear; the first 
column of each record is ignored. 

The set of data items may consist of any subset of the 
variable names associated with x. These names need not 
appear in the same order in which they appear in the defining 
NAMELIST statement. Those variables not specified are left 
unchanged in memory. 



REWIND i 

Logical I/O unit i is rewound, i.e., positioned so that the 
next record to be processed is the first record on this unit 
If the unit is already rewound, REWIND does nothing. 

ENDFILET 



An end-of-file is written on unit i 
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10.4 

VaXz StaJm 

Testing 

StcutomzwU 



BACKSPACE i 

Logical I/O unit i is backspaced one record, i.e., one unit record 
if unit i is formatted, one binary record if unit i is unformatted, 
one logical record if unit i is buffered. If unit i is rewound or 
has not been moved from its beginning by the Fortran program, the 
BACKSPACE does nothing. If end-of-file has just been passed, a 
BACKSPACE leaves the unit positioned immediately before the end- 
of-file. BACKSPACE should not be used on a fileset on which 
NAMELIST I/O is used. 

IF (ENDFILE i)n .iu 

IF (E0F,i)n 1 ,n 2 

IF (E0F(i))n 1 ,n 2 ,n 1 

These statements check the previous read operation on unit i to 
determine if an end-of-file has been encountered.* If so, control 
is transferred to statement n_ ; if not, control is transferred to 
statement n~. If an end-of-file has been encountered, the end-of- 
file indicator for that unit is on and the execution of this state- 
ment turns it off. If the end-of-file indicator is not turned off 
for a unit, an attempt to read more information from the unit will 
terminate the job. 



If (UNIT,i) n;L ,n 2 ,n 3 ,n 4 



n. 



n, 



I/O in progress on unit i 

previous I/O complete on unit i, with no error 

EOF sensed on last input operation 

parity or lost data error on last input operation 



This statement is used for testing the status of unit i when a BUFFER 
statement (Section 10.5) is used for input /output on unit i. When 
it is necessary to wait for an I/O operation to complete, execute 

CALL XRCL 

between IF (UNIT, i) tests to reduce central processor charges while 
waiting. 

IF,(I0CHECK,i)n ,n 2 

This statement is used to check for a parity error in the last record 
read on logical I/O unit i. If the error occurred control is trans- 
ferred to statement n- , otherwise control is transferred to statement n_ 
If a parity error occurs and is not checked by this statement, a subse- 
quent attempt to read from this unit will terminate execution with 
error code 53. 



An E0F on the standard input device, fileset INPUT, may be tested by equiv- 
alencing the filename INPUT to another filename on the PR0GRAM card (Section 7.4) 
Thus, PR0GRAM MAIN(INPUT,0UTPUT,TAPE5O-INPUT) and IF(E0F, 50)20, 30 would test 
for the end of input. Due to an historical quirk, an E0R from a simple 
7-8-9 card on fileset INPUT (only) will test as an end-of-file. On all other 
files, E0R's are ignored in coded reads and only E0F's will be sensed by 
this test. If it is necessary to test for E0R on coded reads, see 
Chapter 11: IE0R. 
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10. 5 
BUFFt'R 

STATEMENTS The BUFFER statements allow the programmer to control 

the use of 1/0 units and to buffer the information being 
sent to/ from these units. These statements combined with 
the ENC0DE/DEC0DE statements permit the FORTRAN programmer 
to construct complicated input/output schemes. 

Because the operating system normally attempts to overlap I/O 
and execution, the Buffer statements frequently do not result 
in much improvement in I/O efficiency. Also, the use of Buf- 
fer statements is fraught with hazards due to their handling of 
the structure of logical records. For these reasons, use of the 
buffer statenent;; - . in normal circumstances is not recommended. 

The primary differences between buffer 1/0 and read/write 
I/O statements are given below: 

1. The mode of transmission (coded or binary) is tacitly 
implied by the form of the read/write control state- 
ment. In a buffer control statement, mode must be 
specified by a mode indicator. 

2. The READ/WRITE control statements are associated with 

a list and, in coded transmission, with a F0RMAT state- 
ment. The buffer control statements are not associated 
with a list; data transmission is to or from a single 
area in storage. 

3. A buffer control statement initiates data transmission, 
and then returns control to the program, permitting the 
program to perform other tasks while data transmission 
is in progress. Before buffered data is used, the 
status of the buffer operation should be checked. (Dif- 
ference: a READ or WRITE statement completes the 
operation before returning control to the program.) 

The forms of the BUFFER statements are: 

■BUFFER IN(i,p)(fw,£w) 
BUFFER 0UT(i,p) (fw,£w) 

where 

i is a logical unit number. 

p is a mode key. May be specified by an integer 
constant or simple integer variable (not sub- 
scripted). for coded mode; 1 for binary mode. 

fw is a variable identifier, the first word of a 
block of data to be transmitted. 

£w is a variable identifier, the last word of a 
block of data to be transmitted. 

A BUFFER OUT statement with an lw address which is one less 
than the fw address will write a zero length logical record. 
In all other cases the address of lw must be greater than or 
equal to that of fw or an execution error message is given. 
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Examples : 

DIMENSI0N A (100) 

N=6 

BUFFER 0UT(N,l)(A(l),a(lOO)) 

C0MM0N/ BUFF /DATA (10) ,CAL(50) 

M0DE=O 

BUFFER IN(9,M0DE)(DATA(1),CAL(5O)) 

BUFFER IN(i,p)(A,B) 

Information is transmitted from unit i in mode p to storage 
locations A through B. Thus, in the second example above,- 
coded information is read from unit 9 into labeled common 
area BUFF beginning at DATA(l), the first word of the block, 
and extending through CAL(50), the last word of the block. 

The BUFFER.IN statement issues a system request for input from 
fileset i in mode p into the given block. Execution continues 
in parallel with the physical input operation. The completion 
of the operation can be determined only by the IF (UNIT, i) state- 
ment (p. 10-8). Once the read operation is completed and the 
data transferred into the block, the amount of data actually 
read can be determined by the library function LENGTH(i), see 
Chapter 11, which returns the length (in CM. words) of the 
entire record.* If the record read was longer than the given 
buffer, the excess words are counted, but skipped. If the 
record is shorter than the buffer, unused buffer words are 
not changed. 



BUFFER 0UT (i,p)(A,B) 

Information is transmitted from storage locations A through 
B and one logical record is written on unit i in mode p con- 
taining all the words from A to B inclusive. Thus in the 
first example above, binary information is transmitted to 
unit N from the block area defined by A(l) and A(100), i.e., 
all of array A is transmitted. 

The BUFFER OUT statement issues a system request for output 
onto fileset i in mode p from the given block. Execution 
continues in parallel with the physical output operation. 
The completion of the operation can be determined only by 
the IF(UNIT,i) statement (see elsewhere in this section). Once 
the output operation is completed, the file can be referenced by 
other I/O statements. One logical record is written by the sys- 
tem for each BUFFER OUT request. 



A logical record even on a coded file. A coded logical record is not 
usually a unit record. See Chapter 13. 
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10,6 

INTERNAL VATA 
TRANSMISSION 
{ENCOVE/OECOVE) 



The following restrictions apply to the use of BUFFER IN/ 
BUFFER 0UT: 

a. The statement IF(UNIT,i) is used to determine the completion 
of a BUFFER statement and to check for a file mark when using 
BUFFER IN. It must be used before any further I/O request of 
unit i is made (including a reference to the function LENGTH), 

b. Other Fortran I/O statements referring to unit i, such 
as REWIND i, must not be used until the buffer opera- 
tion is completed as indicated by the IF (UNIT, i) state- 
ment. Mixing READ/WRITE and BUFFER IN/BUFFER 0UT state- 
ments for the same I/O unit is not recommended. 

c. BUFFER I/O statements process complete logical records. 
See Chapter 13 for a discussion of logical records. 



Information may be transferred under a format specification 
from one area of central memory to another using the ENCODE/ 
DECODE* statements; no external devices are involved. These 
statements are quite slow, the central processor time required 
being about the same as an actual formatted I/O operation 
with the same format. They should be used only where the 
flexibility of the format control is essential or where 
they are executed relatively few times. 

Uses of ENCODE/DECODE statements: 

All information stored in the central memory of the com- 
puter is in the form of strings of binary digits (O's and 
l's). However, two different binary representations may be 
used, depending upon whether the format specification used 
to read the data was a numeric conversion specification or 
an alphanumeric conversion specification (see Appendix A) . 
For instance, consider the decimal integer 8 on a data card. 
If it is read into memory under an I format, it is stored 

in a 60-bit word in the form: 010002- For ease of 

reference, it is said to be stored as 10 octal or 10B. If, 
on the other hand, the same card were read under an alpha- 
numeric conversion specification, e.g., Al , it would 
appear in memory as a string of 60 binary digits of the 
form: 100011101101 101 (i.e., 435555— 55B) . This repre- 
sentation is called internal BCD and uses the 6-bit binary 
equivalents of the octal digits 01B to 32B to represent 
the 26 letters of the alphabet, 33B to 44B for the digits 
to 9 and 45B to 77B for various special characters (see 
Appendix A) . 



ENCODE and DECODE are non-standard and may not function within other Fortran 
systems . 
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The ENCODE/DECODE statements are available to permit the 
user to 

1. rearrange and manipulate information stored in 
display code (e.g., to break up into several words 

a string of characters stored (packed) into one word, 
or to alter or fill in some part of a format speci- 
fication stored in an array) . 
and 

2. convert information from coded to binary (DECODE) or 
vice versa (ENCODE). 

NOTE: All integer values are stored as binary infor- 
mation regardless of whether they are input under 
or I conversion specification, which dictate only 
what conversion is to occur before the values are 
stored. Thus, if 11 is read under conversion 
into I, it is stored as an 11B, whereas if 11 is 
read under I conversion into II, it is stored as 
13B. When these two values are used in arithmetic 
expressions in a program, octal (i.e., binary) 
arithmetic is performed and proper results are 
generated; that is, I = I + II will store 24B (=20) 



These statements have the following form: 

ENCODE (c,f,v)£ 
DECODE (c,f,v)£ 

where 

c_ is an unsigned integer constant or a simple integer 
variable (not subscripted) specifying the number of 
characters in the record. Under RUN c_ may be up to 
150 BCD characters (c > 150 is an error which is 
caught at compilation time if c_ is an integer con- 
stant and at execution time if c^ is an integer 
variable) . 

f_ is the statement number or variable identifier 
identifying the format specification, 

v is a variable or array name (with or without sub- 
scripts) specifying the starting location of the 
BCD information, 

£ is the input/output list. 

Information transfer into or out of the area specified 
by y_ begins with the leftmost character position of the 
location given by v and continues until c characters 

(10 per word) have been transferred [i.e., read (DECODE) 
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ni/i/lflr 



or stored (ENCODE)]. For ENCODE if c is not a multiple 
of 10, the record ends in the middle of a word and the 
remainder of the word is blank filled. For DECODE, if 
the record ends with a partial word, the balance or the 
word is ignored. 

Since each succeeding record begins a new computer word, 

the number of words allocated for each record is 

(c_ + 9)/10 truncated if necessary to the nearest integer, 



iuvwi/(- ine use or variaoies, ^, is transmitted according to 
the format specification identified by f_ and stored in 
successive locations starting at v with c_ internal BCD 
characters per record. If c is not a multiple of 10, 
the record ends in the midst of a word and the remainder 
of the word is blank filled. If the I/O list I and the 
format specification translate more than c_ characters 
per record, an execution error message is generated. 

Examples: 

1 . ENCODE may be used to calculate a field definition in a 
format specification at execution time. Assume that the 
user wishes to have a format specification of the form 
(2A10,Im) but wants to specify a value for m at some 
point during the execution of the program, subject to the 



Til r.11.,„'«~ „ 4- „ 4-~,v,~„-!- ^ nil... 



m to vary 



IFCM.LT.10 .AND. M ,GT. 1)1,2 
1 ENCODE (?., 100, SPECMAT )M 
100 FORMAT (7H(2A10,I,I1,1H)) 



PRINT SPECMAT,A,B,J 



2 PRINT 10 
10 FORMAT (*bMbOUTbOFb RANGE) 

M is tested to insure it is in the proper range. If not, 
control transfers to the statement labeled 2, which in 
this case prints a message. If M is in the proper range, 
ENCODE packs the coded equivalent of the value of 
M into the character string forming the format specification 
in SPECMAT. For instance if M were 5, SPECMAT would con- 
tain (2A10,I5)b (in display code: 51350134335611405255). 
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A(l) ^ 10HABCDEFGKIJ 
A (2) = 10HKLMNOPQRST 
B(l) = 10HPQRSTUVWXY 
B(2) * 10HZ123456789 



2, (C = multiple of 10) 
DIMENSION ALPHA (4) 



ENCODE (20,1, ALPHA) A, B 
1 FORMAT (A10,A5/A10,A10) 



Result: (1st record) 

ALPHA (1) = ABCDEFGHIJ 
ALPHA (2) = KLMNObbbbb 

(2nd record) 

ALPHA (3) = PQRSTUVWXY 
ALPHA CA) = Z123456789 

3 . (c jt multiple of 10) 

DIMENSION ALPHA (10) 



ENCODE(16,l,ALPHA)A,B 
1 FORMAT (A10,A6) 

1st record 
ABCDEFGHIJKLMNOP bbbb 

ALPHA(ir J ALPHA (2) 



2nd record 
P0RSTUVWXYZ1 2345bbbb 

L ALPHA"(3) ALPHA(4T 
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VECOVE The information in c_ consecutive internal BCD characters 

(starting at address v) is transmitted according to the 
format specification indicated by f_ and stored in the list 
variables L. If a record ends with a partial word, the 
balance of the word is ignored. However, if the speci- 
fication f_ is greater than c_ (record length) per record, 
an execution error message is given. Attempting to DECODE 
an illegal format code or a character illegal under a 
given conversion specification gives an execution error . 
message. 

T'f a Kn n 3 rv 7arn ict-v <7cnrr\ Ki f c^ -i o onfminforo/^ QniTT.rVioro 

in a record, it is treated as a blank. If two binary 
zeros occur consecutively (12 zero bits) in the processing 
of a record, the remaining characters to be transmitted 
in the record, if any, are converted to blanks; the next 
record begins at the word following the word containing 
the two binary zeros. 

Examples : 

1. 



} 1st record 
} 2nd record 



DIMENSION GAMMA (4) ,A6 (2) ,B6 (2) 
GAMMA (l)=10HHEADERbl 21 
GAMMA(2)=10HHEADbb0131 
GAMMA (3)=10HHEADERbl22 
GAMMA (4 )=10HHEADbb0231 
DECODE (18 , 1 ,GAMMA)A6 , B6 
1 FORMAT (A10,A8) 

Result: A6(l) =* HEADERbl21 
A6(2) = HEADbbOlbb 
B6(l) = HEADERbl22 
B6(2) = HEADbb02bb 

2 . DECODE will be used in this example to break the DATE 
into three integer words containing the MONTH, DAY 
and YEAR. 



INTEGER DATE, MONTH, DAY, YEAR 
DATE = 10Hb01/08/70b 
DECODE (10, 205, DATE) MONTH, DAY, YEAR 
205 FORMAT (3 (IX, 12)) 
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After execution of the DECODE statement, the contents 
of the integer words will be; 

MONTH - 1 (or 01B) 

DAY = 8 (or 10B) 

YEAR = 70 ( 106B) 

The internal BCD contents of DATE - 553334503343504233; 

The above statements decode the number values repre- 
senting the date by executing the conversion under 
the format IX, 12, three times; i.e., taking the next 
two BCD characters (01 - 3334) and converting them to 
an integer, skipping the next character (/ =* 50B), 
converting the next two BCD characters to the equivalent 
integer number (08 = 3343) , and finally skipping the 
next character (/ = 50B), and converting the last two 
BCD characters 4233 (= 70) to the equivalent integer. 

3. The following illustrates one method of packing the 

partial contents of two words into one word. Informa- 
tion is stored in L0C(1) and L0C(6) as: 

LOC(l) = S5SSSXXXXX 

(10 BCD characters /word) 
L0C(6) = XXXXXDDDDD 

to form a word of the form: SSSSSDDDDD in storage 
location NAME: 



DECODE(10,1,LOC(6)) TEMP 

1 FORMAT (5X,A5) 

ENCODE (10, 2, NAME) L0C(1), TEMP 

2 FORMAT (2A5) 

The DECODE statement places the last 5 BCD characters 
of L0C(6) into the first 5 characters of TEMP. The 
ENCODE statement then packs the first 6 characters of 
LOC(^) and of TEMP into NAME. 

With the R specification, the statement may be 
shortened to : 



ENCODE (10,1, NAME )L0C(1) ,L0C(6) 
1 FORMAT (45, R5) 
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PREDEFINED FUNCTIONS AND SUBROUTINES 



In addition to the subprograms which the user may define for himself, 
many functions and subroutines are automatically available to the 
Fortran programmer/ either through the automatic generation of the 
required code by the compiler, or through the standard subprogram 
library (fileset SUBRLIB) which is supplied as a part of the 
operating system. 

Additional specialized libraries such as the Graphical Display System 
library (fileset GDSLIB) and the mathematical subprogram library 
(fileset MATHLIB) exist, and may also be searched for required 
subprograms at the user's option (see CLDR in CALIDOSCOPE Control 
Statements ) . 

The intrinsic (in line code) function names are reserved (i.e., 
cannot be used to denote a program name, subscripted variable or 
another subprogram) unless the name occurs in a DIMENSION or EXTERNAL 
statement, is redefined by an arithmetic statement function, or is 
used without an argument list. Of course, it is then unavailable as 
an intrinsic function within that subprogram. If a type statement 
which changes the type associated with an intrinsic function name 
appears in a program unit, the intrinsic function is superseded. 

The table in the following section describes the supported functions 
and subroutines available. It does not describe those library 
subprograms which are called implicitly, e.g., for the execution of a 
PRINT statement, or only by other library subprograms. In the column 
showing the form of the references, the variables used as arguments 
and to receive function values are coded to indicate type as follows 
(appended numbers indicate argument positions): 



B,B1,B2, . 

L » LI r CZ r . 

D,D1,D2, . 
H,H1,H2, . 
1,11,12, . 
Li , LiX , L2 , . 
R,R1,R2, . 

bl ( oZr * . * 



are bit strings (type is irrelevant) 

are complex numbers 

are double precision ( P.P. ) numbers 

are Hollerith (character string) data 

are integers 

are logical values 

are real numbers 

are external subroutines 



If an array is expected as an argument, an A is inserted following 
the type code letter. The dimension of the array may be indicated in 
parentheses, e.g., IA1(5) means first argument is an integer array of 
dimension five. 

If the argument is an external function, an F is inserted following 
the type code letter. 
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If there is an option as to argument type f acceptable types appear 
separated by slashes (e.g., Hl/Il for Hollerith or integer as first 
argument) . 

Variable length argument lists are indicated by the minimum argument 
list followed by an ellipsis. 

Deck names are listed only when they differ from the reference (entry 
point) names. An "(I)" under deck name indicates an intrinsic 
function. 

References may refer to library writeups (e.g., K2 CAL REGISTR), 
sections of this manual (e.g., 8.2.3), error numbers discussed in 
chapter 15 (e.g., 62), or to the American National Standards 
Institute Fortran Standard (ANSI). Functions marked ANSI are 
available in every Fortran IV system which meets the standard. 

The arguments of the trigonometric functions are expressed in 
radians, as are the results of the inverse trigonometric functions. 

Mill ti-Valllod romnlov fnnrfi nne /-"a 1 onl a +• a. nnl<i a «j n »1 a «.-» "I t,^ 

Examples 

1. R=AMIN0(I1,I2, . . . ) Minimum of Arguments (I) ANSI 

indicates that the function AMINO has a variable number of 
arguments (at least two) which are integers and returns a real 
result. The function is defined to have a value which is equal 
to the mininum of the arguments with which it is called. The 
M (D" in the Deck Name column indicates that AMINO is compiled 
in line so there is no separate deck for it. The "ANSI" in the 
Reference column indicates that AMINO is a function found in all 
standard Fortran implementations. 

2. CALL 0VERLAY(H1/I1,I2,I3,H4) Load and Execute Program Overlay 
8.4 

indicates that OVERLAY is a subroutine with four arguments, the 
first being either Hollerith or integer, the second and third 
being integers and the fourth being Hollerith. OVERLAY is the 
library routine used to execute overlays. A detailed descrip- 
tion is found in section 8.4 of this manual. 
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Table of Fortran 


F< 


of Use 


CALL 


ABORT (HI) 


R 


= 


ABS(Rl) 


R 


= 


ACOS(Rl) 


R 


= 


AIMAG(Cl) 


R 


= 


AINT(Rl) 


R 


= 


AJLOG(Rl) 


R 


= 


ALOGIO(RI) 


R 


= 


Aj4AX0(Il,I2, ... ) 


R 


= 


A^AX1(R1,R2, .. . ) 


R 


= 


AMIN0(I1,I2, ... ) 


R 


= 


AMIN1(R1,R2, ... ) 


R 


= 


AMOD(Rl,R2) 


L 


= 


Af*D(Bl,B2, . .. ) 


R 


S 


ASIN(Rl) 


R 


= 


ATAN(Rl) 


R 


= 


ATAN2(Rl,R2) 


CALL 

i- 1 
I- 1 
■ 


BLOK(Hl/Il) 









Functions and Subroutines 

Definition 

Terminate Job Step with Error Status 

Absolute Value: |Rlj 

Arcosine 

Imaginary Part of Complex 

Integer Part of Real 

Natural Logarithm 

Common Logarithm 

Maximum of Arguments 

Maximum of Arguments 

Minimum of Arguments 

Mininum of Arguments 

Rl modulo R2 

Boolean Product 

Arcsine 

Arctangent (Rl) 

Arctangent (R1/R2) 

Force Blocked Binary on I/O Unit 



De.ck Name 


Reference 




11* 2 * 2 2 


(I) 


ANSI 


ASINCOS 




(I) 


ANSI 


(I) 


ANSI, 11.2.27 


ALNLOG 


ANSI 


ALNLOG 


ANSI 


(I) 


ANSI 


(I) 


ANSI 


(I) 


ANSI 


(I) 


ANSI 


(I) 


ANSI, 11.2.13 


(I) 


11.2.2 


ASINCOS 






ANSI 




ANSI 


NOBLOK 


11.2.1 



I 



Form of Use 

R = CABS (CI) 

C = CCOS(Cl) 

C = CEXP(Cl) 

CALL CLDISK 

C « CLOG (CI) 

C * CMPLX(R1,R2) 

L = COMPL(Bl) 

C = CONJG(Cl) 

R * COS(Rl) 

C » CSIN(Cl) 

C » CSQRT(Cl) 

D = DABS(Dl) 

D » DATAN(Dl) 

D * DATAN2(D1,D2) 

D - DBLE(Rl) 

D * DCOS(Dl) 

D » DEXP(Dl) 

R =• DIM(R1,R2) 



Definition 

Absolute value 

Complex Cosine 

Complex Exponential 

Close Random Access Fileset 

Complex Natural Logarithm 

Complex Rl+iR2 from Parts 

Complement (Logical Negation) 

Complex Conjugate 

Cosine 

Complex Sine 

Complex Square Root 

D-P. Absolute Value: |D1| 

D.P. Arctangent (Dl) 

D.P. Arctangent (D1/D2) 

Conversion: Real to Double Precision 

D.P. Cosine 

D.P. Exponential 

Positive Difference: Rl-min(Rl ,R2 ) 



Deck Name 


Reference 




ANSI 




ANSI 




ANSI 


TSDISK 


19 CAL TSDISK 




ANSI 


(I) 


ANSI 


(I) 


11.2.2 


(I) 


ANSI 


SINCOS 


ANSI 




ANSI 




ANSI 




ANSI, 11.2.26 




ANSI 


DAT AN 


ANSI 




ANSI, 11.2.4 


DSINCOS 


ANSI 




ANSI 


(I) 


ANSI 



Form of Use 

CALL DISPLA(H1,I2/R2) 

D = DLOG(Dl) 

D = DLOGIO(DI) 

D = DMAX1(D1,D2, . . . ) 

D = DMINl(Dl,D2, . . . ) 

D = DMOD(Dl,D2) 

D = D$IGN(D1,D2) 

D = DSIN(Dl) 

D = D$QRT(D1) 

CALL DUMP(Bl,B2,I3, . . . ) 

CALL DUMPREG 

CALL DVCHK(Il) 

IF( E0F(H1/I1)) 

CALL EXIT 

R = EXP(Rl) 

CALL F0EBUG(H1, . .. ) 

R = FLOAT (II) 

CALL GETCJE 



Definition 

Display Name and Value on Job Log 

D.P. Natural Logarithm 

D.P. Common Logarithm 

D.P- Maximum of Arguments 

D.P. Minimum of Arguments 

D.P. Dl Modulo D2 

D.P. | Dl | with sign of D2 

D.P. Sine 

D.P. Square Root 

Dump Memory and Terminate Execution 

Print CPU Register Contents 

For compatibility only, use LEGVAR 

EOF^O means End of File on I/O Unit 

Terminate Execution Normally 

Exponential: e to the Rl Power 

Program Tracing Control 

Conversion: Integer to Real 

Fetch Current Job Environment to /CJE/ 



Deck Name 


Reference 
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DLNLOG 


ANSI 


DLNLOG 


ANSI 


(I) 


ANSI 


(I) 


ANSI 




ANSI, 11.2.13 




ANSI 


DSINCOS 


ANSI 




ANSI 
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Q4 CAL REGDUMP 




11.2.15 




11.2.7 



(I) 



ANSI 

Nl CAL DEBUG 

ANSI 

Zl CAL GETCJE 



i 



I 

ON 



Form of Use 

CALL GETREG(BA1(8)) 

I = IABS(Il) 

I = IDIM(I1,I2) 

I = IDINT(Dl) 

I = IE0KH1/I1) 

I - IE0R(H1/I1) 

I * IFIX(Rl) 

IF( INDVCEX(H1/I1) ) 

I = INT(Rl) 

I = ISIGN(I1,I2) 

L * KOMMON(Hl,H2,I3,I4) 

I = LEFT (Bl, 12) 

I = LEGVAR(Rl) 

I « LENGTH (Hl/Il) 

CALL LNGBCD(I1,BA2(I1) ) 

I = LOCF(Bl) 

I = LRDISK(Il) 



Definition 

Fetch System Communication Registers 

Absolute Value: |I1 | 

Positive Difference: Il-min(Il, 12) 

Integer Part of D.P. Number 

I>0 means EOI on I/O Unit 

End of Record Level on I/O Unit 

Integer Part of Real Number 

Check for Input Device Capacity Exceeded 

Integer Part of Real Number 

III | with Sign of 12 

Control Fileset Common/Local Status 

Nominal Left Shift Bl by 12 Bits 

Legitimacy of Real Variable 

Length of Last Record Read on I/O Unit 

Extend Formatted I/O Unit Record Size 

Location of Argument: Machine Address 

Length of Record on Random Access File 



Deck Name 


Reference 


REGISTR 


K2 CAL REGISTR 


(I) 


ANSI 


(I) 


ANSI 




ANSI, 11. 2.26, 




11.2.27 




11.2.8 




10 CAL IEOR 


(I) 


ANSI, 11.2.27 




11.2.9 


(I) 


ANSI, 11.2.27 


(I) 


ANSI 




Q4 CAL KOMMON 




M2 CAL LEFT 




11.2.10 




11.2.11 




14 CAL LNGBCD 



TSDISK 



19 CAL TSDISK 



Form of Use 
I = MAX0(I1, 12, ... ) 
I = MAX1(R1,R2, . . . ) 
CALL MCLOCK(Hl) 

CALL MDATE(Hl) 

CALL M$MORY(Hl,I2, 13) 

I = MILSEC(BI) 

I = MIN0(I1,I2, ... ) 

I = MJN1(R1,R2, ...) 

I = MQD(Il,I2) 

CALL MTDISK 

L = M^ERO(Bl) 

CALL N^RG(Il) 

CALL N^DISK(Hl) 

CALL NQBL0K(H1/I1) 

CALL 0PDISK(I1,IA2(I1) ) 

L = OR(Bl,B2, . . . ) 



Definition 

Maximum of Arguments 
Maximum of Arguments 
Fetch Current Time of Day 

Fetch Current Date 

Control ECS and Central Memory Fields 

Milliseconds of CP Time Used in Job 

Minimum of Arguments 

Mininum of Arguments 

II modulo 12 

Empty Random Access Fileset 

Test for Minus Zero 

Return Current Argument Count 

Set Random Access Fileset Name 

Suppress Blocked Binary on I/O Unit 

Open Random Access Fileset 

Boolean Sum of Arguments 



Deck Name 


Reference 


(I) 


ANSI 


(I) 


ANSI 


MTIME 


11.2.23, 




Z2 CAL MTIME 


MTIME 


11.2.24 




Z2 CAL MTIME 




11.2.12, 




Q4 CAL MEMORY 


SECOND 


Zl CAL SECOND 


(I) 


ANSI 


(I) 


ANSI 


(I) 


ANSI, 11.2.13 


TSDISK 


19 CAL TSDISK 




11.2.25 




Z9 CAL NARG 


TSDISK 


19 CAL TSDISK 




11.2.14 


TSDISK 


19 CAL TSDISK 


(I) 


11.2.2 



H- 1 



Form, of Use 

CALL OVERFL(Il) 

CALL OVERLAY (Hl/1 1,12, 13, H4) 

CALL PDUMP(B1,B2,I3, ... ) 

CALL PUTREG(BA1(8)) 

R = RANF(Rl) 

CALL RDDISK(I1,BA2(I3) ,13) 

R « REAL (CI) 

CALL RECS(BA1,I2,I3) 

CALL REMARK (HI) 

CALL RERECS(BA1,I2,I3) 

CALL RETURN (Hl/Il) 

CALL SECOND (Rl) 

CALL SETFXB(H1/I1, 12,13, 14) 

CALL SETPRU (Hl/Il, 12) 

CALL SETRDCT(I1/H1,I2) 

R = SIGN(R1,R2) 

R = SIN(Rl) 

CALL SLITE(Il) 



Defini t iQP 

For compatibility only* use LEGVAR 

Load and Execute Program Overlay 

Dump Memory and Proceed 

Store System Communication Registers 

Pseudo Random Number Generator 

Read Random Access Fileset 

Real Part of Complex 

Read Extended Core Storage 

Insert Remark in Job Log 

Reread Extended Core Storage 

Return Assigned I/O Device 

Seconds of CP Time Used in Job 

Set Fixed Block Logical Record Size 

Set Physical Record Size Limit 

Set Read Error Recovery for Magnetic Tape 

|R1 | with Sign of R2 

Sine 

Simulate Sense Light 



Deck Name 


Reference 
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8.4 




11.2.6 


REGISTR 


K2 CAL REGISTR 




11.2.16 


TSDISK 


19 CAL TSDISK 


(I) 


ANSI 


ECSIO 


K2 CAL ECSIO 




11.2.17 


ECSIO 


K2 CAL ECSIO 


REWINM 


11.2.18 




Zl CAL SECOND 


SETPRU 


14 CAL SETFXB 




14 CAL SETPRU 


e 


11.2.21 


(I) 


ANSI 


SINCOS 


ANSI 




11.2.3 



Form of Use 



CALL 

R = 

CALL 

R = 

CALL 

CALL 

CALL 

R = 

R = 

CALL 

CALL 

CALL 

CALL 

CALL 



SLITET(I1,I2) 
SNGL(Dl) 

S0RTR(BA1,I2, . . . ) 
SQRT(Rl) 
SSWTCH(I1,I2) 



Definition 

Reset and Test Simulated Sense Light 

Truncate D.P. Value to Real 

Radix Exchange Method Sort 

Square Root 

Test Simulated Sense Switch 

For compatibility only, use REMARK 



Deck Name 



START 

SYSTEMP(B1,B2,B3,B4,B5,B6,I7,H8) Diagnostic Print with Traceback 



TAN(Rl) 

TANH(Rl) 

TIME 

TRAILB(H1/I1, 12) 

WECS(BAl,I2,I3) 



Tangent 

Hyperbolic Tangent 

For compatibility only, use REMARK 

Control Trailing Blanks in Coded Output 

Write Extended Core Storage 

WRDISK(I1,BA2(I3) ,13) Write Random Access Fileset 

XRCL Request Recall Status 



TSORTR 



ECSIO 
TSDISK 



Reference 

11.2.3 

ANSI, 11.2.26 

Ml CAL SORT?. 

ANSI 

11.2.3 

11.2.15 

11.2.19 

ANSI 

11.2.15 

J4 CAL TRAILB 

K2 CAL ECSIO 

19 CAL TSDISK 

11.2.20 



I 



11.2 Descriptive Notes for Functions and Subroutines 

The following notes supply only summary information for those 
library routines which have separate writeups. 

11.2.1 BLOK 

The BLOK subroutine allows the user to force the use of blocked 
binary on a fileset for which it is not normally used. This 
applies only to filesets processed with binary READ and WRITE 
statements. The statement: 

CALL BLOK (unit) 

must be executed before any I/O operations are performed on the 

fileset. The argument unit is the logical I/O unit number for the 

fileset or the L-form Hollerith literal fileset name given on the 
PROGRAM statement. 
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NOBLOK in Section 11.2.14. 

11.2.2 Boolean Functions: AND, OR, COMPL 

The boolean functions (AND, OR, COMPL) operate in a manner similar 
to the masking operations (see Section 3.4), and are redundant to 
some extent. The table in Section 3.4 which defines the masking 
operator is related to the Boolean functions as follows: 

COMPL (Bl) is equivalent to .NOT. Bl 
AND(B1,B2) is equivalent to Bl .AND. B2 
0R(B1,B2) is equivalent to Bl .OR. B2 

The Boolean functions are used when more than two arguments are to 
be combined by AND or OR or when it is anticipated that the 
program may later be converted for a different machine. 

11.2.3 Console Simulation Routines: SLITE, SLITET, SSWTCH 

On the console of the computer for which Fortran was originally 
implemented (IBM 704) were four indicator lights which could be 
tested and turned on and off by programmed instructions. There 
were also six switches which could be set manually and tested by 
programs. These were known as sense lights and sense switches 
respectively. To provide compatibility for programs which used 
these features, three routines are provided which are used as 
follows: 
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Set Light CALL SLITE(I) turns on simulated light I for 111 < 6, 
and turns off all the simulated lights if I = 0. The 
simulated lights are all off at the beginning of 
execution. 

Sense Light Test CALL SLITET(I,J) sets J = 1 if simulated light I 
is on and turns light I off; sets J = 2 if simulated 
light I is off and leaves it off. 

Sense Switch Test CALL SSWTCH(I,J) sets J =1 if simulated switch 
I is on, otherwise SSWTCH sets J = 2. The simulated 
switch is unchanged. See the SWITCH statement in 
CALIDOSCQPE Control Statements . 



11.2.4 DBLE 



The use of the DBLE function does not extend the precision of its 
argument. It merely supplies a correctly formatted low order part 
of value zero to go along with the original argument which is the 
high order part of the result. 

11.2.5 DISPLA 

The first argument is a name which is printed on the job log 
followed by the value of the second argument. If the second 
argument is a normalized real number- it i " s ^rinted in a format 
similar to "E" formatted output with fifteen significant figures, 
otherwise it is printed as a sixteen digit integer (with leading 
zeroes) . 

11.2.6 DUMP, PDUMP 

DUMP and PDUMP differ only in that PDUMP returns to the calling 
program after completion of the dump requests, whereas DUMP 
terminates execution of the job step. Arguments are supplied in 
groups of three (with up to sixteen groups) . Each group of three 
arguments specifies a block of central memory to be printed out. 
These arguments have the following order: 

(1) First word to be dumped (Not the address of the first word) 

(2) Last word to be dumped (Not the address of the last word) 

(3) Format code as follows: 

or 3: Octal dump 

1: Real numbers to be dumped in floating decimal 

2: Integers to be dumped in decimal 
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Thus 

1=0 

J = 1000 

CALL PDUMP(I,J,0) 

is not a request to dump the first 100 words of the user's 
memory, but to dump the block of memory beginning with the storage 
allocated to variable I and running through the storage allocated 
to variable J. In order to dump between calculated addresses, the 
following trick may be used: 

Assume M is an array which is declared in the program, that 
the value of I is the address of the first word to be dumped 
and the value of J is the address of the final word to be 
dumped. Then 

K = 1 - LOCF(M) 

CALL PDUMP(M(K+I) ,M(K+J) ,0) 

will perform the required dump. 

If it is desired to express a dump block limit for either DUMP or 
PDUMP by reference to a statement location rather than a variable, 
use the statement number followed by the letter M S" as the 
argument, e.g. , 



CALL PDUMP(10S,105S,0) 



11.2.7 EOF 



The EOF function permits end of file checking in a manner 
compatible with the statement forms of ANSI Fortran. The 
statement: 

IF(EOFU)) 10, 20, 10 

is equivalent to the non-standard statement: 

IF(EOF,l) 10, 20 

The form IF(EOF(D) GO TO 10 may be used by declaring EOF to be of 
type logical. EOF may have as its argument the logical I/O unit 
number or the fileset name as an L-type literal (again, 
non-standard) : 

IF(E0F(5LINPUT)) 10, 20 
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which may avoid the need for files to be declared equivalent on 
the PROGRAM card. 



11.2.8 IEOI 

IEOI is a function to test for end of information encountered on a 
fileset (and to clear the flag in a manner analogous to the 
IF (EOF (I)) statement). The IEOI function has one argument which 
is the logical I/O unit number or the L-form Hollerith literal 
fileset name. IEOI has a positive nonzero value if an 
end-of-information has been encountered, and zero otherwise. 

An end-of-file status will always be set along with the 
end-of-information status, so EOI need be tested for only if an 
EOF is found. 

11.2.9 INDVCEX 

The Input Device Capacity Exceeded flag is turned on when a 
physical record longer than the stated PRU length (see Chapter 13) 
is read. Executing the function INDVCEX turns off the flag and 
returns a positive nonzero result if the flag was on. If the flag 
was off INDVCEX returns a positive zero. If an attempt is made to 
continue reading without resetting the flag after this error 
occurs, execution is terminated with an error code 63. 

INDVCEX has a single argument, the logical I/O unit number or 
L-form Hollerith literal fileset name. 

11.2.10 LEGVAR 

LEGVAR tests the legitimacy of the value of its argument and 
returns the following values: 

Argument Value Result 

Indefinite -1 

Legitimate 

Infinite +1 

For details on these forms, see Section A. 3. 

11.2.11 LENGTH 

LENGTH is a function which is called with a single argument which 
is either a logical I/O unit number or an L-form Hollerith literal 
fileset name. LENGTH returns the number of words contained in the 
last record read from t-h-e in<H€€et-e4-w^i-t^ -If— the-— -read- was done 
with a BUFFER IN statement, the record is a logical record. If 
the read was done with an unformatted READ statement, the record 
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is a binary record. LENGTH does not apply to formatted READ 
operations. 

If the list on the last READ exceeded the amount of data contained 
in the record, LENGTH returns a negative number whose absolute 
value is the true length of the record. If this condition occurs 
and LENGTH is not called , execution is terminated with error code 
54 when the next operation is attempted on the fileset. 

11.2.12 MEMORY 

The length of the current central memory field may be determined 
by the statement 

CALL MEMORY (2HCM,0, LENGTH) 
which will return the CM field length in the variable LENGTH. 
Similarly, the statement 

CALL MEMORY (3HECS, , LENGTH ) 

will return the length of the ECS field in LENGTH. 

Other calls to MEMORY to adjust the field lengths and to determine 
the maximum amounts of memory allowed are available. For details, 
see library writeup Q4 CAL MEMORY. 

11.2.13 Modular Functions: AMOD, DMOD, MOD 

The modular functions are defined as follows: 

f = argl - [argl/arg2] *arg2 

where [x] is the integer of greatest magnitude whose sign is the 
same as that of x and whose magnitude does not exceed the 
magnitude of x* e.g., [3.1] is 3, [-2.5] is -2 

11.2.14 NOBLOK 

The NOBLOK subroutine allows the user to inhibit blocking for a 
disk fileset processed by binary WRITE or READ statements. 
(Blocking is automatically inhibited for all magnetic tape 
filesets, for disk filesets with a print or punch disposition, and 
for filesets named INPUT, OUTPUT, PUNCH or PUNCHB). The form of 
the call is 

CALL NOBLOK (unit) 
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where unit is a logical I/O unit number or the L-form Hollerith 
literal fileset name. This call must appear before the first use 
of the fileset in the program. 

For more detail on blocked binary see Section 13.1.1. See also 
BLOK in Section 11.2.1. 

11.2.15 Obsolete Routines: DVCHK, OVERFL, START, TIME 

These routines are obsolete. They are retained in the system only 
to avoid introducing incompatibilities for existing programs. 
DVCHK and OVERFL are a remnant of the conversion of the programs 
which had formerly run on the 7090. Their purpose is now 
accomplished, so far as the CDC hardware allows, by the LEGVAR 
function. START and TIME just placed messages in the job log 
which is now done by REMARK. 

11.2.16 RANF(Rl) 

Rl=0 The RANF function returns a sequence of pseudo-uniform random 
real values between zero and one on successive calls with a 
zero argument. 

Rl^O Selection and repetition of the generated sequence may be 
controlled by RANF references with nonzero argument as 
f ol lows * 

RKO RANF returns the last preceding result of RANF(O) or the 
predefined basis of the pseudo-random sequence if there 
have been no previous references by RANF(O). 

R1>0 Rl is altered if necessary to set its low order bit to 
one and its magnitude to between zero and one (by 
inserting a characteristic of 1717B). The result is 
used as a new basis for the sequence being generated and 
is returned as the result of this reference to RANF as 
well as in Rl (therefore Rl must not be a constant in 
this case). The result is not necessarily normalized. 

11.2.17 REMARK 

A message may be transmitted to the job log from a Fortran program 
by the statement: 

CALL REMARK (m) 

where m is a Hollerith literal constant, variable or array 
containing the string of~~ characters which compxise the message. 
The maximum length of the string is forty characters. 
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11. 2. 18 RETURN 

RETURN performs the same action on a fileset as the UNLOAD control 
card. The call has the form: 

CALL RETURN (I) 

where I may be either an integer designating the logical unit 
number for the fileset, or the L-form Hollerith literal name of 
the fileset as it appears in the PROGRAM statement. For example: 

CALL RETURN (3) 
or 

1=3 

CALL RETURN (I) 
or 

CALL RETURN (5LTAPE 3) 

all unload the fileset TAPE3. 
Il»2el9 SYSTEM? 

SYSTEMP may be called to issue diagnostics for conditions detected 
within a Fortran program. The seventh argument to SYSTEMP is the 
error number (51 for a fatal error, 52 for a non-fatal error), and 
the eighth is an error message in the form of a Hollerith literal 
which begins with a carriage control character. SYSTEMP prints 
out the diagnostic supplied by the user followed by a traceback 
and tallies the error for the final summary. The first six 
arguments of a SYSTEMP call should be the first six arguments to 
the routine calling SYSTEMP. If this routine has fewer than six 
arguments, they should appear in the same positions in the SYSTEMP 
call and dummy arguments added to complete the six. 

11.2.20 XRCL 

When XRCL is called, a periodic recall request is issued to the 
operating system. This means that the job relinquishes the 
central processor until a fixed period of time elapses or until a 
peripheral processor posts some progress on a task for the job. 
For example, on an I/O operation this could mean that a physical 
record has been processed and the buffer pointers updated. The 
job will proceed immediately if there is no peripheral processor 
active for the job. Repeated periodic recall requests without any 
intervening peripheral processor activity may cause an error 
termination of the job step. 
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11.2.21 SETRDCT 

Subroutine SETRDCT is used to set the error recovery procedure 
which will be used for each physical record of a magnetic tape 
fileset in case of errors while reading. The default is currently 
nine attempts (eight retries). The first argument is the logical 
I/O unit number or the L-form literal fileset name. The second 
argument is a code specifying the procedure to be used. Zero 
indicates the system default is to be used. If the code is one, 
the system will not attempt to reread the record and the wrong 
mode read detection is disabled. A count of one is useful in 
reading tapes generated with off line devices which do not 
generate correct parity indications. The IF(IOCHECK, i)nl,n2 
statement should then be used to check each read operation (see 
Section 10.3). 

11.2.22 ABORT 

The statement 

CALL ABORT (message) 

where message is a Hollerith literal constant* variable, or array 
containing a coded message of up to sixty characters, will 
immediately abort the current job step and enter the given message 
in the job log. The effect of aborting a job step is described in 
CALIDOSCOPE Control Statements in the section "Control Statement 
Processing Sequence". 

11.2.23 MCLOCK 
The statement 

CALL MCLOCK (ITIME) 

sets the variable ITIME to the current time of day as a display 
coded string in the following format: 

10Hbhh:mm:ssb 

where b is a blank, hh is a number from to 23 designating hours, 
mm and ss are numbers from to 59 designating minutes and seconds 
respectively. The twenty-four hour clock system is used. 

11.2.24 MDATE 

The statement 
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CALL MDATE(IDATE) 

sets the variable IDATE to the current date as a display coded 
string in the following format: 

lOHbddbmmmbyy 

where b is a blank, dd is a number from 1 to 31, mmm is a three 
letter month designation and yy is the last two digits of the 
current year. 

11.2.25 MZERO 

The function MZERO has the logical value .TRUE. if its argument 
is a minus zero and has the logical value .FALSE. if its argument 
has any other value. 

11.2.26 DABS, IDINT, SNGL 

In violation of the ANSI Fortran standard, the DABS, IDINT, and 
SNGL functions are external rather than intrinsic functions. This 
raises the possibility of some name conflicts which might not 
otherwise occur. Also see next section with respect to IDINT. 

11.2.27 IFIX, INT, AINT, IDINT 

The definition of the IFIX function in the ANSI Fortran standard 
is ambiguous. As implemented, it is the same as the function INT. 
These function values may be described as: 

Sign of argument times largest integer less than or equal to 
absolute value of argument. 
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All information handled by the Operating System is stored in 
named collections called filesets (sets of files) which are 
structured in a manner dependent upon both logical and physical 
considerations. That is, the representation of the data within 
the computing system should be structured to reflect the natural 
relationships among the data and to make it convenient and eco- 
nomical to use for its intended purpose. In other words the 
data should be represented in a logical form. However, since 
a computer consists of physical components with varying physi- 
cal characteristics, information must be recorded on each 
medium in a form that can be "understood" by the component 
being used to process it. 

The criteria for structuring information to be transferred 
between humans and a computer are exactly analoguous to those 
for transferring it between humans. A person wishing to con- 
vey his ideas clearly to another person usually writes them 
on paper, indicating the basic level of a thought with a state- 
ment ended by a period, designating the next higher level, a 
group of related statements, by a paragraph and groups of 
related paragraphs by a chapter, etc. Further guides are often 
provided in the form of heading and numbering. This repre- 
sentation of logical structure, however, since it is recorded 
on the physical medium of paper, is restricted in format by 
the number of letters that fit on a line and the number of 
lines on a page. It is this sort of constraint which must be 
dealt with in organizing data for particular media. 

The operating system recognizes two arrangements of filesets: 
sequential- - and random-access . A sequential-access f ileset 
is one in which information is read or written in sequential 
order, as on a magnetic tape. It has a beginning and an end, 
and is positioned at a given point at any time, ready to read 
or write the next record. When a sequential-access f ileset 
is written, any Information following the record written is erased. 
Since the last write determines the end of the useful information on 
the f ileset, it is not permitted to read after writing on the file- 
set without having moved backward over the section just written. All 
of the Fortran language I/O statements deal with sequential-access 
filesets. 



A random-access f ileset is one in which any record may be 
read or rewritten at any tim^ without processing intervening 
data to accomplish the repositioning. New records may also 
be added at any time. This type of accessibility results 
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from the fact that an index* of where records are found is 
associated with the fileset. See 19 CAL TSDISK as an example 
of a library program for processing random-access filesets. 

A sequential fileset may reside on magnetic tape or in disk 
storage or on punched cards (from which it will be copied to 
the disk before being used) . Random access filesets may 
currently reside only on disk (a rotating storage device, 
see Section 13.2.4) or in ECS. The great majority of users 
will be concerned only with sequential filesets. 

73. 0.2 

filQAZt The names which may be used for filesets are the same as 

UamQM those which may be used for variables, arrays, etc., i.e., 

alphanumeric identifiers. Certain fileset names are reserved 
so that they always refer to particular filesets. For example, 
the fileset containing the job input following the control 
record is given the name INPUT; the name OUTPUT refers to 
the information normally printed by a line printer ; PUNCH refers 
to the images of the cards normally punched in coded mode by 
the card punch; and PUNCHB to the images of cards ^normally 
punched in binary mode. Other filesets may oe assigned . 
special disposition by the user via REQUEST or COMMON (see 
CALIDOSCOPE Control Statements) . 

Within a Fortran program, input /output statements are auto- 
matically associated with particular filesets from which or 
onto which information is to be transferred. Since most I/O 
is performed via the card reader and line printer, the Fortran 
READ n statement has the fileset named INPUT associated with 
it; the PRINT statement, the fileset named OUTPUT. For con- 
venience, the user may establish his own associations between 
filesets which he creates and wishes to use and the I/O 
statements of his program. This is accomplished by declaring 
file names on the PROGRAM statement (the first statement in 
a Fortran main program) which correspond to the filesets 
referred to by the particular I/O statements used. (See 
Chapter 10.) Although the user may attach other names to 
filesets, the I/O statements are constructed to render most 
convenient use of names of the form TAPEi, where 1 <_ i <_ 99. 
If i=5, a statement of the form READ (5) refers to the file- 
set of the name TAPE5 which must appear in the PROGRAM state- 
ment. The value i is the logical I/O unit number. (See 
Section 7.4 for. greater detail.) Note that names of the form 
TAPEi are a carry-over from earlier days when tape was the most 
commonly used I/O medium. Filesets so named need not be on 
magnetic tape and in most circumstances vill probably reside 
on the disk (see Section 13.2.4). In general, 
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the PROGRAM statement defines which filesets are to be 
referenced by the I/O statements within the program. If 
a fileset named does not already exist for the job, the 
system creates an empty fileset on the disk and gives it the re- 
quested fileset name. Fileset names may. be equivalenced to 
one another in the PROGRAM statement so that two or more 
logical I/O unit numbers refer to the same fileset. In 
addition, the EXECUTE or LGO statements allow other fileset names 
to be substituted for the file names stated in the PROGRAM 
statement. 

The following examples illustrate the topics just discussed. 

1. PROGRAM RECORD (INPUT, OUTPUT, TAPE6) 
DIMENSION NAME (4), MONACT (100) 



READ 10, NAME, PAY 

10 FORMAT (4A10,F10. 2) 

PRINT 11, NAME, TPAY 

11 FORMAT (5X,4A10,F10. 2) 



WRITE C6) (MONACT (I) , 1=1 , 50) 



END 



The program uses the filesets INPUT, OUTPUT, which are normally 
created automatically by the operating system, and TAPE6, which 
will be created by the system as an empty fileset on the disk if 
it has not been created by a jobstep preceding execution of 
this program. 

2. PROGRAM MAIN (INPUT, OUTPUT, TAPE5= INPUT, TAPE6=0UTPUT) 
DIMENSION A(100),B(50),C(50) 
READ 11, A 
PRINT 12, A 
READ (5,11)B 
WRITE (6,12)B 



END 

TAPE5 is equivalenced to INPUT and TAPE6 is equivalenced to 
OUTPUT. Thus, both READ statements read from the INPUT file- 
set and the WRITE and PRINT statements both put information 
to be printed on the OUTPUT fileset. 
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3. J9998, 1,100,40000. J. DOE PAYMASTER 
RUN. 

REQUEST, UCSED, I . 2137 
LGO,,, UCSED. 
7-8-9 Card 

PROGRAM FILEH(OUTPUT,TAPE6 , PUNCHB, TAPE7=PUNCHB) 



READ (6) ERECORD 



WRITE (7) TOTALS 



END 
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Because the LGO card has substituted the fileset UCSED for 
the fileset TAPE6, the READ (6) statement reads the fileset 
UCSED which has been assigned to magnetic tape. Of course, 
TAPE6 does not have to be replaced by UCSED, but it was done 
to demonstrate the generality of fileset naming and substi- 
tution. A more usual form is to have "REQUEST,TAPE6,I.2137" 
instead of "REQUEST, UCSED, I. 2137" and to have "LGO" instead 

nf "T.nn TTrSFTTi . " 

Note that the order of the parameters (the fileset names) on 
the LGO card is important here: the first name is associated 
with the name of the fileset on which the program resides, 
the second name on the card is associated with the first file- 
set name given in the PROGRAM statement, etc. (Thus, the 
fileset name UCSED is associated with the second name, TAPE6.) 
Only 3 parameters are allowed in this example, since TAPE7 
is already equivalenced in the PROGRAM statement to PUNCHB 
and therefore is not counted as a fileset name parameter. 
Only the fileset names explicitly stated on the LGO card 
override the program fileset names listed in the PROGRAM 
statement. Thus, OUTPUT and PUNCHB are unchanged in this 
example. 

The WRITE (7) statement causes binary information to be placed 
on the PUNCHB fileset (a fileset predeclared by the system for 
the punching of binary cards). 



Except for those filesets automatically associated with spe- 
cial dispositions by the operating system* all the filesets 
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The filesets which automatically receive dispositions are: 

OUTPUT - Print (PR) disposition 

PUNCH - Punch Hollerith (PU) disposition 

PUNCHB - Punch Binary (PB) disposition 

INPUT - Protected from writing in case it is necessary to 

restart the job. INPUT is released after execution 
is completed. The special character of INPUT is not 
strictly speaking, a disposition. 



associated with the execution of a job are normally temporary 
and are assigned to the disk. That is, in the absence of a 
specific request to the contrary, storage space for a fileset 
is allocated by the operating system as the fileset is created 
and this space is released and is available for reuse as soon 
as the job completes execution. 
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By use of the REQUEST Control Statement* a fileset may be 
assigned to magnetic tape, or post-execution processing such 
as printing or punching may be designated. By use of the 
COMMON Control Statement* (not related to the Fortran COMMON 
statement) a fileset may be retained on the disk for a limited 
period after the job creating it terminates. The COMMON Con- 
trol Statement also allows the attachment of a previously 
created common fileset to the current job. Public filesets 
may also be attached to the job with this statement. 

Only one disposition may be made for any fileset, i.e., it 
may not be both printed and punched, nor may it be made com- 
mon and printed, etc. 



In the logical arrangement of information in a fileset to 
be handled by the Operating System, the following structural 
levels are defined: logical records of fourteen** levels, and 
files. 
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a string of physical records (see Section 
13.2) which is delimited by an end-of-record (EOR) whose exact 
form depends on the storage medium used. In a Fortran binary 
fileset on tape, each binary record normally constitutes a 
logical record. This is known as the unblocked binary form 
and is less compact than the form called blocked binary 
which is normally written on most disk filesets (all those 
without dispositions specified). It is possible to override 
the assumed blocking of a fileset by calling library rou- 
tines BLOK or NOBLOK (see Chapter 11) if desired. 



In the blocked form an additional word appears at the begin- 
ning and end of each binary record to declare its length and 
position within the fileset. These words are processed entirely 
automatically and need not be allowed for by the user except 
that he must not attempt to read a blocked fileset as unblocked, 
nor vice versa. Their presence allows the fileset to be 
written without including an EOR for each binary record. Thus, 
blocking is most important when the binary records are short. 

Binary filesets may be converted between the blocked and un- 
blocked forms with the BBLOK and BUBLOK utility programs.* 






See CALIDOSCQPE Control Statements . 

Two additional levels- exist but are reserved for special use, e.g., a zero 
length record of level 15 (17B) is an end-of-file (EOF) . 
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Coded filesets are not normally divided into logical records 
except for the f ileset INPUT where an EOR is treated as an 
end-of-file. If one wishes to test for EQR on a coded 
fileset, library routine IEOR may be used (see Chapter 11). 

Logical record level numbers: The Operating System allows 
related logical records to be grouped into an organized 
hierarchy by means of level numbers, much like the ideas 
treated in a book are organized. (See Figure 13.1) A single 
logical record forms the unit of information and therefore has 
the lowest level number. A higher level number delimits a 
set of logical records consisting of the logical record at 
that level plus all preceding records (of a lower level) back 
to one of an equal or higher level. Up to 14 different 
levels may be defined (00 to 15B) . In many cases, although 
not from standard Fortran, the user may take advantage of 
this structure imposed by the System in order to organize 
his own records. For example, the CALIDOSCOPE fileset posi- 
tioning control statments SKPF and SKPB can position filesets 
using level numbers (see CALIDOSCOPE Control Statements ) . 



Logical Records 
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j 
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A schematic description of the use of record level numbers 
to organize a fileset containing -University employee 
records. 
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All logical records pertaining to a general subject may be 
formed into a major collection of information called a file , 
A file need not be divided into logical records. A file 
being written may be terminated by executing an 

ENDFILE i 

Fortran statement. When reading, an 

IF (ENDFILE i) 



or 



or 



IF (EOF (i)) 



TT7 (T!CW! A \ 
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may be used to test whether an end-of-file (EOR on fileset 
INPUT) was encountered during the previous access. 



The logical structure of information is so defined that 
filesets may be stored on assorted media without the logical 
structure being lost due to a medium's physical characteristics, 
Thus a fileset can be recorded on disk, magnetic tape or cards 
A set of cards read by the card reader becomes a fileset on 
disk. A set of lines to be printed on a line printer is also 
stored as a fileset on disk until it has been printed. When 
a fileset is transferred from one medium to another (e.g., 
cards to disk, disk to tape or vice versa) each of which 
possesses different physical properties, it is the logical 
structure of the fileset which prevents the information con-* 
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its meaning as a result of being transcribed to a different 
medium . 



This section defines some terms and concepts relevant to the 
physical structure of filesets. Subsections explain the par- 
ticular methods used to represent logical structure on each 
available storage medium. 



Physical Record Unit : On a physical device, the actual 
units in which the information is recorded are called 
physical records ; they define the amount of information 
which is moved as a unit to or from that medium in one trans- 
fer (read or write) operation. This is a purely physical 
element, hence the term physical record. The maximum size 
of physical records normally used on a particular device 
is called the physical record unit (PRU) for that device. 
On some devices the PRU is completely determined by the 
hardware (e.g., card readers and line printers; the PRU on 
other devices is fixed by the operating system (e.g., disk 
and ECS); finally, on some devices a PRU size is assumed 
by the opera ting "sy s tern ""But may T>e "over ridden by the user 
(e.g., external magnetic tape, see 19 CAL SETPRU) . 
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Slocking : Efficient use of devices such as magnetic tape 
and disk demands that logical information be grouped or 
blocked into larger PRUs than are used for cards. On magnetic 
tape, a 3/4" gap (at least) of blank tape, called the inter- 
record gap (or. just record gap) , is required by the tape drive 
between physical records to allow time for the physical device 
to stop and start up again. If the PRU size were equivalent 
to that of cards, only 14% of the recording surface of the 
tape would contain information, since 80 columns of infor- 
mation can be written on 1/7" of tape at 556 characters per 
inch. 

Blocking is a general term used to described the action of 
combining two or more records into a standard element, called 
a block , and for dividing long records (normally binary) into 
several such blocks for the purpose of improving I/O 
efficiency. In general, blocking may be fixed or variable, 
the important factor being that there be an established 
scheme for deblocking (restoring to its original structure) 
the information once it has been blocked. In fixed blocking , 
the length of each record is predetermined and constant, with 
a constant number of elements in each block. In variable 
blocking , the length of the records varies and is signalled 
ei.tn.er wy a unique terminator, or uy a pointer woru at tue 
beginning (and/ or end) of the record telling how long the 
record is. A block as used here may be thought of as 
being synonymous with a physical record; it may contain a 
partial record, exactly one record, or more than one record. 

Summary of Input-Output Devices and Storage Media 

The following input and output devices are presently con- 
nected to the CDC 6400 computers and are used in transfer- 
ring information between storage media. 

1. Card Reader 

The CDC 405 card reader is used to read Job decks sub- 
mitted at the Input counter into the system. It is 
capable of reading 80-column punch cards at a maximum 
rate of 1200 cards per minute. 

2. Card Punch 

The CDC 4i5 card punch is used to punch output from 
user's jobs when requested. It can punch 250 80-column 
cards per minute. 

3. Line Printers 

There are both CDC 501 and IBM 1403 line printers in the 
system. The printers produce printed output from 
the system at a maximum rate of 1000 lines per minute 
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with 132 characters per line. See Table H of Appendix 
A for the character set used. 

4. Magnetic Tape Units 

There are five CDC 604 magnetic tape units in the sys- 
tem. They use 1/2" seven track magnetic tapes which 
serve as a permanent, portable storage medium in cases 
where cards would be too bulky and/or inconvenient. 
All reels of magnetic tape have two aluminum reflective 
spots, one at the beginning and one at the end, to sig- 
nal the beginning and end, respectively, of the physical 
reel. They can be recorded and read at densities of 
200, 556, or 800 7-bit frames (6-bits plus parity check 
bit) per inch, and at a speed of 75 inches per second. 
Thus at 800 characters per inch, the transfer rate is 
60,000 characters per second. 

5. Disk 

There is one CDC 6638 Disk Storage Device in the system. 
It is a random-access large-capacity memory commonly 
used for job input waiting to be processed, output file- 
sets waitiig to be printed, punched or sent to remote 
terminals, user scratch filesets, public filesets, 
user common filesets, system library programs, etc. 
Once the disk is positioned, information may be read 
or written at the effective rate of 420,000 characters 
per second. The capacity of the entire disk memory is 
131,072,000 characters including space occupied by the 
Operating System itself; a half-track, which has a maxi- 
mum capacity of 32,000 characters, is the smallest amount 
of disk which can be assigned to a fileset. 

6. Remote Terminals 

There are numerous remote terminals, such as Teletypes, 

which are located on campus and are owned or rented by 

individual departments or their members (see Guide to 
Computer Center Services ) . 

7. Extended Core Storage 

There are 500,000 words of auxiliary core storage in the 
system which may be accessed as an I/O device. Part of 
this storage is now allocated for system residence, part 
for optimization of fileset handling, and part for direct 
access (e.g., see library routine K2 CAL ECSIO). 

In addition to the devices connected directly to the computer, 
there are separate devices for graphical output. See the 
Graphical Display System Manual . 

73.2. 1 

Punched CaJidb For files which are to be read by a card reader or have been 

produced by a card punch, and therefore are recorded on punched 
cards, the 80 columns of a card comprise one physical record. 
Since cards are of fixed size, every physical record is a full 
PRU. The end of a logical record is indicated by a card with 
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Figure 2 
Fileset Structure Delimiters for Filesets on Punched Cards 
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7-8-9 or EOR card. These 
two forms are equivalent; 
the card stock and printing 
are immaterial. 



7-8-9 level 17 or EOF card; 
card stock and printing are 
immaterial. 



6-7-8-9 or EOI card. Pink 
cards with 4 square corners 
are used to end job decks; 
EOI cards punched by the 
computer 1 are on normal punch 
stock. 
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73.2.2 

VtvLwtod 

Output 



the multiple punch. 7~8-9 in column one; the level number 
associated with, that record consists of two octal digits 
punched in columns 2 and 3. Since the level number is 
normally 00, these columns will usually be blank. An end- 
of -record level 17B occurs only as an end-of-file. The 
end of a job is indicated by a card with the multiple punch 
6-7-8-9 in column one. See figure 13.2. Also see 
14.2.6 for examples of other cards. 

Printed output is produced from filesets produced during 
job execution and given a print disposition. Since printed 
output is the only form produced directly by the computer 
for human "input", its characteristics are quite different 
from media designed for reentry into the computer. 

Each unit record is represented by a printed line of up to 
132 characters but the printer has an additional feature which 
uses an additional character. The first character of each 
unit record is used to control the vertical movement of the 
paper past the printing position. A detailed list of the 
available carriage control characters appears under the 
PRINT statement (Section 10.1). Logical record structure 
is ignored in producing printed output. 



73.2.3 

Uagmttc 

Tape* 



The CDC 604 tape drives handle 7-track tapes only. 9-track 
tapes made on machines using that format must be copied to 
7-track tapes before use on the 6400. 
A fileset may consist of one or more tape reels. 

Parity Checking : Parity checking is a scheme used to check 
for erroneous bits of information (caused on tape, for example, 
by dust on the recording surface or skew while reading or 
writing) on storage media. In the case of 7-track tape 
a character or frame parity check examines the six infor- 
mation carrying bits in a column across the width of the tape 
called a frame and inserts a parity bit as the seventh bit in 
the frame. A block , track , or longitudinal parity check 
examines the bits along a track of a tape and inserts a parity 
bit in the corresponding bit position of a terminating frame 
consisting solely of block parity check bits. If information 
is written in even parity , the instances of one bits in a frame 
or track of a block are counted, and a binary 1 or is inserted 
as the parity bit such that the total of ones is even. If 
information is written in odd parity , the same count is per- 
formed, but the parity bit is inserted such that the total of 
ones in each frame is odd. The track parity checking always 
uses even parity. 
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Character or frame 
parity check bit 



Track 




frame 
Section of Magnetic Tape 



The parity checking scheme provides a fairly reliable means 
for checking against erroneous information, but the even 
parity check introduces a complication; a character consis- 
ting of all zeroes has an even number of ones, and 
therefore, the parity bit is a zero. However, an all zero 
character would exist on tape as a gap; a series of zeroes 
would appear as blank tape, and the tape drive would be 
unable to differentiate between a zero and a stretch of 
tape containing no information. To avoid this confusion, 
another bit configuration is written to represent the char- 
acter code for 0, leaving available for use only 63 of the 
possible 64 characters which can be represented by six bits 
(2 6 = 64). Odd parity does not produce this problem. Cur- 
rently on tape, binary information is written in odd parity, 
and coded information in even parity . 

External and internal tapes : 

Magnetic tapes are of two types: Those written by and 
intended for use on a CDC 6000 series machine, (called 
internal tapes) and those written in a generalized format 
such that they may be used as well by other types of 
machines (called external tapes). 

INTERNAL TAPE FORMATS (I or U tapes*) 

1) Binary - A file written on magnetic tape in binary 
mode exists as a series of physical records not 
exceeding the standard length (PRU) of 512 CM words. 
The end of a logical record is signalled by a 48 bit 



* 



See REQUEST in CALIDOSCOPE Control Statements 
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marker in which the four low order bits indicate the 
level numoer in binary. If the information in the 
logical record does not fit exactly into an integral 
number of PRUs, the 48 bit marker is appended to the 
last physical record written, forming a short physical 
record. Otherwise the marker is written as a separate 
physical record which, is said to have zero length. In 
either case, the marker is called an end-of-record (EOR) . 
The end of a file is indicated by an end-of-record to 
terminate the last record, followed by a second end-of- 
record of level 17B. This constitutes a "zero length 
logical record of level 17B" and is called an end -of - 
file . Binary tapes are always recorded in odd parity. 

2. Coded - The structure of coded files written for use on 
CDC 6000 series machines is basically the same as that 
of binary with three exceptions. The first exception is 
that the tape is recorded in even parity . Second , the 
standard PRU is 128 CM words rather than 512, since some 
of the space in the peripheral processor which would be 
allotted to the buffer is taken up to perform the re- 
quired conversion of the coded information. The third 
exception stems from the fact that all coded files are 
composed of one or more unit records (lines), where a 
unit record is a variable length sequence of characters 
(< 137 characters) terminated by the external BCD ter- 
minator 16323* converted internally to a zero byte** 
(OOOOg) in Central Memory. The unit records are simply 
concatenated without regard to the boundaries between 
physical records. This is an example of variable 
blocking, mentioned above, i.e., the length of each 
unit record is completely determined by the position 
of the terminator. Thus, the division into logical 
records is not needed to provide for orderly handling 
of the information. 

In both modes on an internal tape, the fact that the remainder 
of the tape contains no valid information and is to be ignored 
is signaled by an End-of-Information (EOI) . This consists of a 



The use of this code as the unit record demarcation has the unfortunate 
side effect of restricting the use of the character code for colon ":" 
from data which is to be read or written on coded internal tapes. 

A zero byte used to terminate a unit record in the I/O buffer contains 
a minimum of twelve zero bits but may contain more since it is always 
extended* if necessary, to Include the low order twelve bits of the 
CM word which, contains it. 
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octal * I 7 written in even parity followed by a block parity 
check character and is generally referred to as a tape mark, 
since it may be used in other contexts to signify something 
other than EOI. The tape mark is followed by a special series 
of characters called an EOI trailer label, to indicate that 
there is no more information on the fileset. 

EXTERNAL TAPE FORMATS (X tapes*) 

All magnetic tape filesfets which are not in the formats described 
above for internal tapes are external tapes. The PRU length may 
be specified by the user** if the defaults indicated below do not 
fit the user's needs. 



Binary - The standard PRU is 512 words (5120 frames). The 
tape format differs from that of a binary internal 
tape in only three respects: 

(1) There are no level numbers associated with the logi- 
cal records on external tapes, level zero being 
assumed. Therefore, each logical record consists 
merely of a sequence of one or more physical records 
ending with a short (less than a PRU) record. All 
but the last physical record in each logical record 
are one PRU in length. The 48 bit marker is used 
only when a zero length physical record is required 
as in binary internal format. 

(2) End-of-file is indicated by a tape mark (cee above) 
which is also considered to be a logical record of 
length zero and level 17B. 



(3) There is no EOI on an external tape. 

Coded - Each file is considered to contain a single logical 
record. Points (2) and (3) under binary external 
tape above also apply to coded external tape. 

When writing coded external tape each unit record is written as 
a separate physical record. Thus although the PRU length is 128 
words (1280 frames) the records are normally limited by the Fortran 
formatted I/O routines to 137 characters. 



* 

See REQUEST in CALIDOSCOPE Control Statements . 

See 19 CAL SETPRU. 
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This limitation can be bypassed (see 14 CAL LNGBCD) so long as the 
unit records remain shorter than the PRU length*. Due to a pecu- 
liarity of CDC hardware all physical records written must contain 
an even number of characters. If a unit record contains an odd 
number of characters, a blank will be added at the end. The 
Fortran formatted output routines normally discard trailing blanks 
from each unit record (which saves space on disk and coded internal 
tapes) but this may be controlled by the user (see J 4 CAL TRAILB) . 

When reading coded external tape each physical record is normally 
read as a unit record so that a zero byte (see note under coded 
internal tape) is appended to the data read in. The zero byte is 
not added if the physical record is exactly one PRU in length; 
thus, the longest record which can be read preserving the record 
structure is two frames less than a PRU (maximum unit record 
length of 1278 characters with the default PRU). 

For reading of tapes prepared on computer systems which use fixed 
blocking special controls are available through the library rou- 
tine 14 CAL SETFXB. 

Note: When writing coded records of the usual size (no more than 
137 characters) the peripheral processor time required with 
external tape may be five or ten times greater than with internal 
tape. 

73.2.4 

V<Uk The CDC 6638 Disk File is composed of 72 magnetic disks which are 
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in each stack are in turn arranged in two groups of 18 disks each. 
The two top groups are referred to as UNIT 0; the two bottom as 
UNIT 1. See Figure 13.3. Data are recorded onto the disk surface 
by read/write heads fitted onto an access arm. The arm can be 
moved by a positioner to any track on the surfaces it accesses, 
and once on the proper track, the revolution of the disk brings 
a desired location to the read/write head. The surfaces of a 
disk are also divided radially into 100 sectors of 64 words which 
are the physical records . 

The positioning parameters serve as coordinates for locating each 
record of information stored on a Disk File, whereas information 
stored on magnetic tape is only available sequentially, i.e., 
after all the information recorded preceding it has been read, infor- 
mation stored on a disk file may (but need not) be referenced as a 
random-access fileset (e.g., via 19 CAL TSDISK) . 



For unit records longer than 1278 characters see 19 CAL SETPKU. 
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The disk file has a fixed PRU of 64 CM words and is always recorded 
in odd parity. A logical record consists of data written continu- 
ously in one or more sectors. A logical record always begins at the begin- 
ning of a sector. The time required to position the disk (about 125 
milliseconds) is large compared to the time required to read each 
physical record (about 1 millisecond) . This renders the transfer 
of large records the most efficient way to use the disk. 

Filesets residing on disk have the same structure as internal 
binary tapes, except for the fact that an end-of -information 
(EOI) mark is not actually written onto disk, but note is kept 
of its location in a central memory table maintained by the system 
outside the user's memory field. 
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Figure 13. 3* 6638 Disk File Disks and 
Positioners 
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HOW TO USE THE RUN FORTRAN COMPILER Chapter 14 



This chapter shows a typical setup for running a program coded in 
Fortran and explains the output from a sample program. 

After a program has been coded in Fortran, it (along with any 
data) is either punched on cards for entry into the computer or 
typed into the computer via a keyboard terminal. In order for the 
program to be interpreted by the computer, it must be organized in 
a particular sequence and accompanied by certain control instruc- 
tions which indicate to the operating system , which controls the 
processing of programs, how the information is to be handled. The 
operating system must be told, for example, whether the program is 
written in Fortran, in some other language, or a combination of 
languages; it must be told where the beginning and end of the 
program deck are; it must be told where the data cards begin and 
end, and where any additional sources of input and destinations 
for output are (e.g., magnetic tape). 

The unit of work which is submitted to the operating system by the 
programmer is called a iob . It begins with a group of lines 
called control statements, the first of which is a special 
statement called the Jojb Identification Statement. The job is 
terminated oy a speciax iuue wuKu Qcnuicb i^e ^ii« >-?- -*.«= 
information that is being submitted. 

The operating system is itself a collection of programs which, 
given the information from the control statements, controls the 
sequence of events occurring within a job and communicates 
necessary information to the computer operator (for example, which 
magnetic tapes, if any, are required). It must also arrange the 
scheduling of jobs with respect to each other since it can process 
up to 6 jobs simultaneously in addition to those being printed, 
punched, held in queues, etc 

The remainder of the chapter refers to a program punched on cards. 
For information about running a program from a keyboard terminal, 
see Appendix A, Table I. 
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14.1 Flow of Control 

A typical job deck is shown in Figure 14-1. The job illustrated 
here calls for a compilation (i.e.r conversion to a form 
executable by the computer) of a Fortran program (labelled "source 
deck" in the figure) and execution of the resultant program (i.e., 
performing the set of calculations specified by the program) with 
the data cards shown. 
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Identification 
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(JOB CARD) 



^ Control Record 



Figure 14.1 Typical Job Deck 

The set of control statements heads the deck and is separated from 
the remainder of the deck by an end-of-record (EOR) card (the card 
with rows 7, 8, and 9 of column 1 punched out), which signals the 
end of a logical grouping of cards. The particular control 
statements and the corresponding arrangement of the remainder of 
the deck (everything after the first EOR) depend upon the purpose 
and structure of the job (see other examples in Section 14.3). In 
Figure 14.1, the body of the job deck consists of a Fortran source 
deck, terminated by an EOR card, followed by the data cards to be 
read as input by the executing program. Note that the EOR . card 
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may be omitted for the last record of the job deck since it is 
implied by the special pink EOI (end-of-information) card that 
ends the deck. For detailed information about control statements, 
see Calidoscope Control Statements . 

When the job is introduced into the computer, it is placed in an 
input queue along with other jobs waiting to be processed. A job 
scheduler decides the order in which jobs from the input queue 
will be executed. When the job is brought to execution? the 
operating system uses the control statements to direct the 
processing of the job. 

First, all the cards following the first EOR card are given the 
fileset name INPUT. Then the system begins processing the control 
cards in order. In our case, the first card encountered is the 
'RUN' card. This card causes the system to load the RUN Fortran 
compiler and start it executing. 

The RUN compiler begins processing cards from the INPUT fileset. 
Its task is to convert the Fortran source statements into a form 
which can be used by the loader and/or to inform the user of any 
errors it may detect in the program(s). The compiler stops 
processing cards when it encounters the EOR card. It produces a 
listing on a fileset called OUTPUT to be printed. The listing 
contains information about the program(s) compiled, including any 
error diagnostics. If there were no fatal errors, the compiler 
also produces a version of the program in a form suitable for the 
loader (called relocatable object code ) on a fileset named LGO. 
If the RUN compiler found an error which prevented it from 
compiling a usable program, it aborts, which sets a flag called 
the current error flag. It then returns control to the operating 
system. 

The system tests the current error flag and, if it is on, skips 
control statements until an error control statement is found. If 
no error control statements are found the operating system 
terminates the job. However, if the flag is not set, it proceeds 
to process the next control statement, in our case, the LGO 1 card. 
The LGO card causes the system to begin execution of a program 
named CLDR (the CALIDOSCOPE Loader). 

The loader begins processing the relocatable binary information 
from the fileset LGO, which is where the RUN compiler left the 
converted form of the Fortran program. The task of the loader is 
to arrange the program in memory so that it can be executed. 
After it has gotten the subprogram(s) from the LGO fileset into 
memory, it performs a library search for additional subprograms 



1 From Load and Gg. into execution. 
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which are explicitly or implicitly required in order to run the 
program. (The library contains subprograms to perform frequently 
used operations; these subprograms are already in relocatable 
object code form.) For instance, the program may explicitly use 
the COS function. If so, the loader finds the subprogram for 
computing cosines in the library and loads it into memory. 

It also happens that a Fortran PRINT statement compiles code which 
calls a subprogram called OUTPTC 2 so that programs containing 
PRINT statements implicitly call OUTPTC. The loader finds OUTPTC 
in the library and puts it into memory too. If the user has also 
accidentally misspelled the name of a function in one of his 
Fortran statements (perhaps he wrote SINE instead of SIN), then 
(unless he provided his own subprogram named SINE) the loader will 
search the library for SINE. Failing to find it, the loader will 
place a warning message in the OUTPUT fileset. In any case, it 
produces a load map , describing where in memory it loaded the 
various subprograms. 

Should the loader run into a sufficiently bad problem,^ it will 
abort. If no major problems were encountered, the loader will 
begin execution of the program it has loaded into memory. 
Execution will begin, in our case, with the first executable 
statement in the program OVERFL. At this point, the first data 
card is wating to be read from the INPUT fileset. What happens 
next is entirely up to the program which the user wrote. It may 
generate answers (correct or incorrect') on the OUTPUT fileset and 
then terminate normally, or it may 'blow up' and terminate 
abnormally for any of a number of reasons. Some of the most 
popular abnormal terminations are due to calling a function with 
illegal arguments, which terminates with a Fortran execution 
diagnostic (see 15.4.2), using the value of a variable which has 
never been set, which may generate a mode 4 error (see 15.4.4), or 
using a bad index when referencing an array, which results in a 
mode 1 error (see 15.4.4) if you are lucky and causes mysterious 
failures if you are unlucky. 

When the job finishes (normally or abnormally) the OUTPUT fileset 
is placed in an output queue along with the output from various 
other jobs waiting for a printer to become available. The next 
section discusses the output from a sample job in some detail. 

To summarize the handling of a typical job in the system, we 
distinguish three phases: 

1. entering the input queue and waiting for a chance to 
execute 



2 From Outp ut of Coded information. 
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2. executing 

3. waiting in the output queue for an available printer and 
then being printed. 

The execution phase of our sample job can be further subdivided 
into three steps: 

a. compilation 

b» loading 

c execution of the program. 

It is important to distinguish these steps because errors may 
occur during any of them, and the significance of a particular 
error is highly dependent on which phase of the job the error 
applies to. It is also possible to save computer time by 
bypassing some steps, notably compilation, when circumstances 
permit (see 14.3). 

14.2 Output of a sample job 

This section describes the output of a sample job. The sample 
uses a RUN Fortran program which does not solve a 'real' problem. 
Rather, it demonstrates a variety of different features, including 
a number of errors. The program contains many Fortran comments 
explaining different aspects of the program- It also prints 
explanatory comments on the output. 

The printer output has been reproduced on the next 10 pages about 
a factor of 2 smaller than it would appear on a line printer. 
Numbered comments have been added on the right to explain various 
features of the output. 

The printed output is a combination of the following pieces: 
MSFILE, Job Log, source listing, compiler storage map, load map, 
and execution output. These aspects are discussed in sections 
following the output. Besides printed output, a job may have card 
output and/or magnetic tape output. These are also discussed 
briefly. 



14-5 



-f 

C7> 



16.48.12 H: LP 
SAMPLE PROGRAM 
SAMPLE PROGRAM 
SAMPLE PROGRAM 
SAMPLE PROGRAM 
SAMPLE PROGRAM 



04 



BEGIN OUTPUT 
3997 200 
9 997 200 
9997 200 
9997 200 
9 997 200 



CURRENT 



SYSTEM 



04 AUG 73 ***** CLDR AS STANDARD LOADER 
WE PLAN TO ESTABLISH THE CALIDOSCOPL LCA 
STANDARD LOADER DURING THE WEEKEND OF AU 
THIS MEANS THAT CLDR WILL NORMALLY BE US 
LOAD, LGO, EXECUTE, AND NOGO CONTROL 5TA 
POTENTIAL AREAS OF DIFFICULTY ARE DISCUS 
NEWSLETTER. WE ANTICIPATE THAT THEY WILL 
ONE PERCENT OF THE JOBS RUN. PLEASE REPO 
INCLUDED IN THIS LIST TO THCS SUMNER, 22 
TO THE PROGRAMMING CONSULTANT, 217 EVANS 
ARISES, THE CDC LOADER MAY BE USED BY IN 
STATEMENT LOADER, PPLOADR IMMEDIATELY A 
IDENTIFICATION STATEMENT. 



FOR ALL ***** 
DER, CLOP-, AS THE 
GUST 18 AND 19. 
ED TO PROCESS 
TEMENTS. 

SEO IN THE AUGUST 
IMPACT LESS THAN 
RT ANY PROELEMS NOT 
1 EVANS HALL, OR 
. IF DIFFICULTY 
SERTING THE CONTROL 
FTER THE JCB 



16 SEP 73 INPUT PASSWORDS 

AN INPUT PASSWORD FEATURE WAS INSTALLED TODAY FQP TESTING. 
7-8-9 CARDS WHICH CONTAIN THE LETTERS *PW=* WILL P F. IGNORED 
OR CAUSE THE JOB TO BE ABORTED WITH THE MESSAGE *BAD 
PASSWORD* OR *J08 DELETED. INCORRECT INPUT PASSWORD*. THIS 
SHOULD NOT AFFECT ANYONE USING VALID 7-8-9 CARDS, BUT 
ANYONE HAVING UNUSUAL PROBLEMS WITH 7-8-9 CARDS SHOULD SEE 
THE CONSULTANT OR GREG SMALL (223 EVANS). ADDITIONALLY, 
A NEW NON-FATAL CARD READER MESSAGE, *ERROR ON 789 CARD*, 
WILL OCCURR FOR 7-8-9 CARDS WHICH DO NOT STRICTLY CONFORM 
TO THE EOR CARD SPECIFICATION. 

18 SEP 73 NOGO PROBLEM 

ON MONDAY 17 SEPT, THEPE WAS A PROELEM WITH NOGO LOAD 
SEQUENCES WHICH RESULTED IN JOBS RUNNING TO THEIR TIME 
LIMITS. THIS PROBLEM HAS BEEN FIXED AND ANYONE WHOSE JOB 
EXPERIENCED IT SHOULD BRING THEIR JOB*S OUTPUT TO THE 
CONSULTANTS OFFICE FOR A REFUND. 

18 SEP 73 NEW JCB CARD DEFAULTS /ONLINE BALANCE 

AS OF ABOUT iioo ON 18 SEP 73, THE FOLLOWING NEW JOB CARD 
STANDARD FIELDS WERE PUT INTO THE JET. AS USUAL, THESE 
VALUES MAY BE CHANGED BY APPLICATION TO THE ACCOUNTING 
DEPARTMENT IN 239 EVANS HALL. ALSO AT THIS T IME THE NEW 
ONLINE BALANCE WAS TURNED ON. SEE THE POSTED DISCPIPTION 
AT THE INPUT DESK OR ON THE BCARD OUTSIDE 38 EVANS. 



FIELD 



JOBS 0000 - 7999: 



JOBS 8003 - 9999 







DEFAULT 


MAXIMUM 


DEFAULT 


MAXIMUM 


TAPES 


(D) 





3 








TIME 


m 


4 


1000 


2 


to 


CM FL 


(B) 


40000 


120000 


40000 


120000 


PAGES 


(D) 


25 


1000 


25 


100 


PUNCH 


(Dl 


100 


10000 


100 


1000 



M E S 



SAMPLE PROGRAM 
SAMPLE PROGRAM 
SAMPLE PROGRAM 
SAMPLE PROGRAM 
SAMPLE PROGRAM 
SAGES 



ECS FL (B) 



9997 


200 


AG 


10/06/73 


9997 


200 


AG 


10/06/73 


9997 


200 


AG 


10/06/73 


9997 


200 


AG 


10/06/73 


9997 


200 


AG 


10/06/73 


304000 











22 SEP 73 PUBLIC FILESET CHANGES 
ASS: TEXT360 
REPLACE: ALPHAC, TSP 

22 SEP 73 NEW TSP 

A NEW TSP COMMON FILE VERSION WILL 8E IN EFFECT AS OF 
SEPTEMBER 22. THE NEW VERSION REQUIRES ECS AND ALSO ALLOWS 
A LARGE DECREASE IN CM FIELD LENGTH. THE TYPICAL SMALL JOB 
WILL WORK WITH 70000B FIELD LENGTH AND 20B ECS. A FULLER 
EXPLANATION IS GIVEN IN A HANDOUT, AVAILABLE IN 673 EVANS. 



04 OCT 73 ATTENTION GD 
A NEW ERROR CHECKING F 
EXAMINES THE SPECS VAL 
HAVE BEEN INITIALIZED. 
UNINITIALIZED, THE JOB 
TRACEBACK INSTEAD OF T 
UNFORTUNATELY, AT LEAS 
IMPLEMENTATION. IF YOU 
FABLIY, FAGLIX, OR FAG 
IF YOU HAVE NOT SET SP 
CORRECTED ON MONDAY. 
INTERIM BY SETTING THE 
PROBLEMS ARISE PLEASE 
INGRAM X2-1724. 



S USERS 

ACILITY HAS BEEN ADD 

UES ON USER CALLS TO 

IF ANY REQUIRED VA 

WILL ABORT AS BEFOR 
HE OLD MODE 4 ERROR. 
T ONE ERROR EXISTS I 

CALL ANY OF THE ROU 
LIY, YOUR PROGRAM WI 
EC(1) THROUGH SPECSJ 
YOU CAN AVOID THE PR 
SE SPECS VALUES TO Z 
CONTACT JOHN WELLS, 



EO TO GOSLIB WHICH 
DETERMINE IF THEY 
LUES ARE 
E BUT WITH A 

N THE 

TINES FABLIX, 

LL CURRENTLY ABORT 

10). THIS WILL BE 

OBLEM IN THE 

ERO. IF ANY OTHER 

X2-1410 OR BILL 



06 OCT 73 CONSULTING HOUR CHANGE 

EFFECTIVE MON. OCT. 15 THE PROGRAMMER CONSULTANT HOURS WILL 
BE: 10-12 A.M. AND 1-5 P.M. MON.-FRI. 

06 OCT 73 HAZELTINE DEMONSTRATION 

THERE WILL BE A DEMONSTRATION OF THE F0LLL0W1NG NEW PRODUCTS 
FROM HAZELTINE ON TUES. AND WED. OCT. 16 AND 17 10 A.M. 
TO 5 P.M. IN ROOM 251 EVANS: 1000 AND 2000 TERMINALSt TWO 
TYPES OF PRINTERS (IMPACT AND THERMAL), AND A TAPE CASSETTE. 



06 OCT 73 INTERESTED I 
THE PERMFILE SYSTEM AN 
READY FOR RELEASE. HO 
LITTLE DISK STORAGE TO 
WE APE ASKING CUSTOMER 
PERMFILES TO FILL OUT 
REQUIREMENTS. WE HOPE 
THIS SURVEY AND WE MAY 
RETURNED FORMS. FORMS 
TRY TO COMPLETE A FORM 



N PERMANENT FILESETS 

D DOCUMENTATION ARE ESSENTIALLY 

WEVER, WE CURRENTLY HAVE PRECIOUS 

ALLOCATE TO PERMFILES. CONSEQUENTLY, 
S WHO ARE INTERESTED IN USING 
A FORM ESTIMATING THEIR SPACE 
TO FORMULATE A FAIR POLICY BASED ON 

ACTUALLY ALLOCATE SPACE BASED ON THE 

ARE AVAILABLE IN 239 EVANS. PLEASE 

BY 15 OCT IF INTERESTED. 



Page 1 of Sample Output. Output identification, job separators, and MSFILE, 



XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXX) XXXXXXX S XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXX 

lXXXXXXX10XXXXXXXX2OXXXXXXXX3L)XXXXXXXX<tC)XXXXXXXX5CXXXXXXXXe0X j XXXXXXX7 0XXXXXXXX80XXXXXXXX9aXXXXXXX100XXXXXXX110XXXXXXX12 0XXXXXXX130XX 



XXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxx 



xxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxx 



xxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxx 



xxxxxxxxxxxx 
xxxxxxxxxxxx 
xxxxxxxxxxxx 



(1) 



10/0J&/73 - CALIDOSCDPE (SCM) VEP.0l.2-A 07/21/73 MACHINE A 
(2) 16.4g.00 H: CR 05 J9997. SAMPLE PROGRAM 

16.4B.04 H: CR 05 81 CARDS INPUT 

16.48.04 $:JGB J9997AG AT CTLPT 3. 



16.40.04 *:RUN M m.mi.CR. 



16.4p.04 $ 
16.4B.05 W 
16.4B.05 * 
16.4B.06 
16.4B.07 $ 
16.48.07 F 
16.4B.07 I 
16.40.07 I 
16.4&.07 I 



:CM=16384(4J000e) , EC=0 , CP=0, PP=0.172, SP=0 

1 WAPNING IN OVERFL 
:LGO. 

BEGIN OVERFL , CP TIME LOADING .249 
:CM=4544< 10700B) , CP=0.536, PP=2.320, SP=0.043 
:ARITHMETIC ERROR MCCE 2 AT ADDRESS 003250 
i INFINITE OPERAND USED 

: OPERAND MAY HAVE RESULTED FROM A DIVISION BY ZERO 
REFERENCE TO WORD 001026 WHOSE VALUE IS INFINITE 



Page 2 of Sample Output 
JOBLOG 

(1) Date and (2) time when the job 
entered the system. 

(3) Message giving absolute address + 1 
and other information about a fatal 
error, See 15, M and 15.5. 

(4) I^SSAGES GIVING THE APPROXIMATE 
AMOUNT OF OUTPUT GENERATED AND THE! 
APPROXIMATE COST OF THE JOB. 



(3) 



16.4B.07 $:JOB COMPLETED. CP=0.553, PP=2.853, SP=0.048 
16.48.07 s: PRINTED LINES = 227, PUNCHED CARDS = 
16.4B.08 $:EFFECTIVE TIME = 1.104 SEC, JOB COST = S0.105 



W) 



16.4B.08 ItFUNDS REMAINING = $41,366 



16.48.38 10/06/73 OUTPUT 



RUN FORTRAN COMPILE* VERSION 2.3 8.3 



06 OCT 73 16:43:04 PAGE NO. 1 



(6) 



(5) 
000003 

000003 
000011 
000011 
000021 



000021 
000023 
000033 



000033 



PROGRAM CVERFL( INPUT, OUTPUT, TAPE5=INPUT) 
C..THIS SAMPLE PROGRAM DEMONSTRATES SEVERAL FEATURES OF RUN FORTRAN 
C. LISTINGS, INCLUDING A VARIETY OF ERRORS. BECAUSE OF THE HIGH DENSITY 
C..OF ERRORS, IT SHOULD NOT BE TRUSTED FOR EXAMPLES OF HOW TO DO THINGS. 

COMMON VARD(30)/BL0K1/VARNAM(50),VARNM2(100),VARNM3(200) 
C..READ A FROM A CARD AND PRINT IT FDR LATER VISUAL CHECKING. 
READ(5,1) A 

1 FORMAT (E10.0) 

PRINT 6, A, A 
6 FORMAT(*OA = *G10.4,*, BUT IF THE PRIN^ FIELD IS NOT LARGE ENOUGH* 

1*, A PRINTS LIKE THIS *F10.4) 
C. -GENERATE AN INFINITE VALUE B BY DIVIDING A BY ZERO. THEN PRINT B. 
B=A/0.0 
PRINT 2,6,B 

2 FORMAT 1*0DIVIDING BY ZERO RESULTS IN AN INFINITE VALUE, WHICH PR 
1INTS AS * G7.4,* CR OCTAL *021) 

C..THE FOLLOWING STATEMENT TESTS THE VALUE OF B AND BRANCHES TO 
C. 30 IF B IS INDEFINITE 

C 20 IF B IS IN RANGE 

C. 10 IF B IS INFINITE 

IF (LEGVAR(B) ) 30,20,10 
CAN ELEMENT IN THE VARNAM ARRAY IS GIVEN A VALUE. A SUBSEQUENT 
C. REFERENCE TO THE SAME ELEMENT MISSPELLS THE VARIABLE NAME, CAUSING 
C..THE COMPILER TO MISTAKE IT FOR AN EXTERNAL FUNCTION REFERENCE. 
C..ALSO, THERE IS NO WAY FOR THE NEXT STATEMENT TO BE EXECUTED AND THE 
C. .COMPILER FLAGS THIS ANOMALY WITH A NON-FATAL DIAGNOSTIC. 

VARNAM(5)=5.0 



000037 

***NP ****************************** 

000040 
000043 
000043 
000045 



10 



C=VARNM<5> 
CONTINUE 

CALL WORMARGP, 16. ) 
C=ARGP 
C. BECAUSE THE SUBROUTINE WORK ALWAYS TAKES THE SQUARE ROOT OF ITS 
C. SECOND ARGUMENT, THIS CALL CAUSES A NON-FATAL EXECUTION TIME ERROR 
C..DETECTED BY THE SQUARE ROOT FUNCTION. 
000047 CALL WORM ARGP,-1. 5) 

000051 PRINT 11,ARGP,ARGP 

000061 11 FORMAT (*OSQRT OF NEGATIVE NUMBER IS *N INDEFINITE VALUE, WHICH PR 

1INTS AS * G7.4,* OP OCTAL *,021) 
C-.THE NEXT STATEMENT CAUSES WORK TO MULTIPLY BY AN INFINITE NUMBER, 
C..A FATAL ERROR WHICH TERMINATES THE JOB. 
000061 CALL WORMARGP, B) 

000063 GO TO 3G 

C..THIS CODE HANDLES THE CASE OF B LEGAL IWHICH CANT HAPPEN IN 
C..THIS EXAMPLE). 

000064 20 CONTINUE 
C..THIS CODE HANDLES THE CASE OF 
C..THIS EXAMPLE). 

000064 30 PRINT 31 

000070 31 FORMAT (*0 HELP - THERE HAS BEcN A HITEOUS DISASTER*) 

0000 70 END 



Page 3 of Sample Output 

Source listing of the main program 

OvEHFL PRODUCED BY THE RUN COMPILER 

(5) This column gives the relative 
location of the code compiled 
for each statement. 

(6) a compiler diagnostic indicating 
an error in the previous state- 
MENT. See (10) below. 



B INDEFINITE (WHICH CANT HAPPEN IN 



PUN FORTRAN COMPILE* VERSION 2.3 8.3 



06 OCT 73 16:48:04 "AGE NC. 2 



CPOSS REFERENCE" MAP-OVEPFL 



PROGRAM LENGTH INCLUDING I/O BUFFERS 
002237 



STATEMENT FUNCTION REFERENCES 

(8) LOCATION G^N TAG 
STATEMENT NUM3EP REFERENCES 



LOCATION 

000102 

000121 

000105 

000043 

000140 

000064 

000064 

000153 



GEN TAG 
C 00010 
C00027 
C00013 
LOO 022 
CO 104 6 
LOO 03 5 
L00035 
COO 06 1 



(7) 

SYM TAG 



SYM TAG 

1 

2 

6 

10 

11 

20 

30 

31 



(9) 

REFERENCES 



REFERENCES 

000003 

000023 

000011 

000036 

0000 51 

000035 

0000 35 

000064 



000036 
0)0036 



000063 
00006 3 



AND 
AND 



Page *i of Sample Output 

Complete compiler storage map for main 
program OVERFL. 

(7) Statement labels used in the program 

(8) the relative location of the code com- 
piled for thee statement 

(9) A LIST OF THEE LOCATIONS WHERE THE 
STATEMENT IS REFERENCED, 



BLOCK NAMES AND LENGTHS 

- 000036 SL0K1 



- 000 536 



VARIABLE REFEPENCES 

l LOCATION GEN TAG 

000167 V00005 

000172 V00010 

000170 V00006 

000171 VO0OO7 
000000C01 A01001 
000000C02 A0J002 
000062C02 A00003 
000226C02 A 00.00 4 

START OF CONSTANTS 
00D072 

START OF TEMPORARIES 
000161 

START OF INDIPECTS 
000167 

UNUSED COMPILER SPACE 
002600 



SYM TAG 

A 

ARGP 

B 

C 

VARD 

V AON AM 

VARNM2 

VARNM3 



REFERENCES 
000006 000014 



000043 
000022 
030042 

NONE 
NONE 
NONE 
NONE 



1 WARNING IN OVEFFL 



N p**#****MO path TO THIS STATEMENT 
000037 



(10) 



000045 
0J3Q026 
000046 



000016 
000046 
000030 



000021 

000054 000056 

000033 000061 



000061 



(10) AN EXPLANATION OF THE DIAGNOSTIC OCCURRING 
AT LOCATION 37 IN THE SOURCE LISTING. 



RUN FORTRAN COMPILER VERSION 2.3 B.3 



06 OCT 73 16:48:04 PAGE NO. 1 



SUBROUTINE WORMS, X) 



000005 

000005 
000005 
000005 
000007 
000013 
000013 



C..THIS SUBROUTINE IS SET UP TO MAKE LOTS OF MISTAKES FOR THE MAIN 

C. .PROGRAM. 

C. 

CON THE FIRST CALL, X=16.0 IS LEGAL AND EXECUTION IS NORMAL 

CON THE SECOND CALL, X=-1.5 AND THE SQUARE ROOT FUNCTION DETECTS 

C A NON-FATAL EXECUTION ERROR 

CON THE FINAL CALL, X IS INFINITE AND THE MULTIPLICATION CAUSES A 

C FATAL APITMETIC FRROR 

C 

C..WORK ALSO DECLARES SOME VARIABLES THAT IT DOES NOT USE. THE 

CVARIABLES IN COMMON SERVE ONLY TO DEMONSTRATE CERTAIN FEATURES OF 

CBLANK AND LABELED COMMON. THE VARIABLE DEMO IS DEFINED SO THAT AN 

CUNINITIALIZED VARIABLE WILL OCCUR IN THE DUMP. 

C 

COMMON VARC{100),VARD<3O)/BL0Kl/VNAMfll50),VNAME2<100»,VNAME3<200) 
1/BLDCK2/XXX(100) 

INTEGER DEMO 

X1 = X 

X2=2.*X1 

S=SQRT(X) 

RETURN 

END 



Page 5 of Sample Output 

Source listing for the subroutine WORK 

PRODUCED BY THE RUN COMPILER 

(11) Note that WORK defines 3 OOW0N 

BLOCKS, BLANK CuTWLAND LABELED 
BLOCKS BLOKl AND HjOCfc, SEE CL2) 
BELCJW.AlSO NOTE THAT IF 



(11) 



AND OVERFC REFERENCED V? 
THEY WOULD NOT GET THE 
LOCATION BECAUSE BLANK 
ALLOCATED DIFFERENTLY IN THE TWO 
ROUTINES. 




RUN FORTRAN COMPILER VERSION 2.3 B.3 



06 OCT 7 3 It: 48: 04 PAGE NO. 2 



CROSS PE"=ERENC C VAB-WO^K 

SUBPROGRAM LENGTH 
000026 

STATEMENT FUNCTION REFERENCES 

! LOCATION G=N TAG 

ST4TEMENT NUMBER REFERENCES 

( 

| LOCATION GtN TAG 

BLOCK NAMES AND LENGTHS 
n<? v - 000202 BL0K1 - 

VARIABLE REFERENCES 

i LOCATION GEN TAG 

I 000023 V00011 

; 000000C01 A00001 

! 000144C01 A00002 

! 000000C02 A00003 

000062C02 A00004 

(13) 000226C02 A00005 

000000C03 A00006 

* 000024 V00012 

! 000025 V00013 

START OF CONSTANTS 
000015 

START OF TEMPORARIES 
000017 

START OF INDIRfCTS 
00p023 

UfAjSEC COMPILER SPACE 
003100 



SYM TAG 


REFERENCES 


SYM TAG 


REFERENCES 


00053f 


BL0CK2 - 000144 


SYM TAG 


REFERENCES 


DEMO 


NONE 


VARC 


NONE 


VARD 


NONE 


VNAME1 


NONE 


VNAME2 


NONE 


VNAME3 


NONE 


XXX 


NONE 


XI 


000006 


X2 


000007 



Page 6 of Sample Output 

Complete compiler storage map for sub- 
routine WORK. 

(12) Blank COWDN is indicated here by a 

w. wm%$m 

BLOCK DECLARED A^JD BLDCK2 IS THE THIRD. 

(13) This line says that VNAM3 is locaied 

AT ADDRESS 226B RELATIVE TO THE BEGINNING 
OF THE SECOND llGmJN BLOCK DECLARED, 

i.e., BLOKL 



BEGIN CLDR2.2 P 



6 OCT 73 16:48:06 , CPU TIME USED IS 



.283 SECONDS 



K 



BLOCK 


0RIG!N U5> 

000100 


LENGTH 


DATE 




TIME 


PROCESSOR 


FILE 


/BL0K1 / 


000536 












OVERFL 


0006 36Q4) 


002237 


06 OCT 


73 


16:48:04 


RUN2.3B3 


LGO 


/BL0CK2 / 


003075 


000144 












WORK 


003241 


000026 


06 OCT 


73 


16:48:04 


RUN2.3B3 


LGO 


INPUTC 


003267 


001025 


20 APR 


73 


19:59:46 


CMP1.1A4 


SUBRLIB 


IOMSG$ 


004314 


000226 


12 MOV 


70 


12:32:16 


CMP1.1A4 


SUBRLIB 


10. SUP 


004542 


001326 


2 APR 


73 


19: 59:46 


CMP1.1A4 


SUBRLIB 


LEGVAR 


006070 


000005 


12 NOV 


70 


12: 32:16 


CMP1.1A4 


SUBRLIB 


OUT PTC 


006075 


001203 


2 APR 


73 


19: 59:46 


CMP1.1A4 


SUBRLIB 


SQRT 


007300 


000043 


02 DEC 


71 


01:04:33 


CMP1.1A4 


SUBRLIB 


/SYS. MEM/ 


007343 


000005 












SYSTEM 


007350 


001024 


20 APR 


73 


19:59:46 


CMF1.1A4 


SUBRLIB 


SYS. MAP 


0103 74 


000021 


DIAGNOSTIC 


; STORAGE 


MAP 




// 


010415 


000202 n 


n 











UNSATISFIED REFERENCES : 

ENTRY DECK LOCATION : FROM DECK AT RELATIVE (ABSOLUTE) ADDRESSES 

VARNM - 007461: OVERFL 000041 (000677) (17) 

REQUIRES 027357B WORDS TO LOAD, 010617B WORDS TO EXECUTE 



Page 7 of Sample (Xjtput 
Load Map 

(14) 636 IS THE LOAD ADDRESS FOR OVERFL 
.3241 IS THE LOAD ADDRESS FOR 



IE LOAD ADDRESS FOR BLOKL 
IS THE LOAD ADDRESS FOR 



(IS) 100 



(16) 



THE LENGTH OF BL 
AS DECLARED IN [ 
DECLARED IN OVEF 



« COWON is 202 

K, NOT 36 AS 



(27) A PROGRAM 



.... IS REFERENCED AT 
AT ABSOLUTE ADDRESS 677 WHICH IS 
RELATIVE ADDRESS 41B IN OVERFL, 
I.E., IN THE STATEMENT 

C=VARNM(5) 
WhWF REUTIVE ^s 



A = .1235E+06, BUT IF ^HE PRINT FIELD 15 NOT LARGE ENOUGH, A PRINTS LIKE THIS ********** 

DIVIDING BY ZFRO RESULTS IN AN INFINITE VALUE, WHICH POINTS AS P. OR OCTAL 37770000000000000000 

NEGATIVE ARGUMENT 

ERROR NUMBER 39 DETECTED BY SQRT AT ADDRESS 007323 

CALLED FROM WORK AT 003251 = 000010 IN WORK 

CALLED FROM CVERFL AT 000706 = 000050 IN OVE*FL 



Page 8 of Sample Output 

output generated during 
execution of program 



SQRT OF NEGATIVE NUM3EP IS AN INDEFINITE VALUE, WHICH PRINTS AS 



I OR OCTAL 17770000000000000000 






DMP 
P = 
xo = 

XI = 
X2 = 
X3 = 
X4 - 
X5 = 
X6 = 
X7 = 

$0 * 
$4 = 



- EXCHANGE PACKAGc DUMP - CABLED AT 16:48:07 ON lu/06/73 BY SYSTEM - INFINITE OPERAND USED 
000000 RA = 143500 FL = 010700 EM = 07 £CS RA = 01121000 ECS FL = 00000000 MA = 013743 



Page 9 of Sample Output 

Memory dump automatically 
produced because of the 
fatal arithmetic error 



77777 
00000 
37770 
17214 
37770 
00000 
37770 
37770 



77777 
00000 
00000 
00000 
00000 
00000 
00000 
00000 



77770 00000 
10260 00000 
00000 00000 
00000 00000 
COOOO 00000 
00000 00007 
00000 00000 
00000 00000 



00000 00000 00000 00000 
00000 00000 00000 00000 



AO 
Al 
A2 
A3 
A4 
A5 
A6 
A7 

$1 

$5 



004643 
006175 
001026 
003256 
004554 
004555 
003265 
003260 



C(AO) 
C(A1) 
CIA2) 
C(A3) 
C(A4) 
C(A5) 
C<A6) 
C(A7) 



ocooo 

00000 
37770 
1~?214 
33 333 

oonoo 

37 770 
00 000 



00000 00000 
0000 00000 
00000 00000 
0000 00000 
3000 00000 
00000 00000 
00000 00000 
00000 10260 



0005 5 
02053 
00000 
00000 
00000 
00007 
00000 
01030 



BO 
Bi 
B2 
B3 
B4 
B5 
B6 
B7 



000000 
001030 
001026 
004542 
000000 
000001 
000001 
007256 



00000 00000 00000 00000 
00000 00000 00000 00000 



$2 = 00000 00000 00000 00000 
$6 = 00000 00000 00000 00000 



PP CALL = DPE 23 000000 002053 

C(B1) = 17770 00000 00000 00000 

C<62) = 37770 00000 00000 00000 

C(B3) = 33232 12224 55170 65516 

C(B4) = 00020 03250 00000 00000 

C(B5) = 00000 00000 00000 00000 

C(96) = 00000 00000 00000 00000 

C<B7) = 00000 00000 00000 00017 

S3 - 00000 00000 00000 00000 
$7 = 00000 00000 00000 00000 



SYSTEM COMMUNICATION AREA 



000000 00020 03250 00000 00000 
000004 24012 00540 00000 01031 



000064 14071 70000 00000 00000 
000070 17260 52206 14570 00000 
000074 00000 00000 00000 00000 



00000 00000 OCOOO 00000 11162 02524 00000 01031 
00000 00000 00000 00000 00000 00000 00000 00000 
WORDS 000010 TO 000063 ALL CONTAIN 00000 00000 00000 00000 
00000 JOOOO 00000 10617 00000 00004 00000 00100 
00000 10000 00000 00000 00000 00000 00000 00000 
00000 00000 00000 00000 00000 00000 00000 00000 



17252 42025 24000 02053 
00000 00000 00000 00000 

00000 00000 00000 00000 
00000 00000 00000 00000 
00000 00000 00000 00000 



PP PARAMETER APEA 

002050 60007 77777 02004 02050 

002054 02000 00000 40140 02074 

002060 00000 00000 00000 00003 

002064 00000 00000 00000 00000 

002070 00000 00000 00000 00000 



60007 77777 02004 02051 
00000 00000 00000 02160 
00000 00000 00000 00000 
00000 00000 00000 00000 
41000 00000 00000 00000 



60007 77777 02004 02052 
00000 00000 00000 02074 
00000 00000 00000 00000 
00000 00000 00000 00000 
00000 00000 00000 00000 



17252 42025 24000 00015 
41140 62000 01000 03075 
00000 00000 00000 00000 
00000 00000 00000 00000 
00000 00601 00000 00200 
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AIN 60007 77777 02 
04000 00721 00000 
51300 03256 10466 
51500 03260 63150 
17214 00000 00000 
60007 77777 02004 
60561 77777 77777 
04100 03304 06100 
76600 54620 51600 
51100 03352 52110 
01000 05217 07000 
76620 76120 51600 
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14.2.1 The MSFILE and Job Log 

The first page of each output printed at the Computer Center has 
page separators printed across the folds of the paper to make it 
easier for the output from different jobs to be identified. The 
body of this page contains MSFILE - notices giving current 
information relevant to Computer Center operations, e.g., bugs 
found (or fixed), features added (or to be deleted), upcoming 
events, etc. 

The Job Log (sometimes called the "Dayfile" ) contains an entry for 
each significant occurrence during the running of the job. It 
constitutes the first page of the job output proper. All control 
statements executed are reproduced here, along with other messages 
from the system, from the operators, etc, most of them 
self-explanatory. Probably the most important point for the user 
to note is that many (but not all) error messages appear here. 
(See section 15.4.3.) 

The first line of the Job Log appears as follows: 

mm/dd/yy - CALIDOSCOPE (SCM) vvv.xx mm/dd/yy MACHINE A 

where the first mm/dd/yy is the date on which the job was run, vvv 
is REC if the System has recovered from a failure, and VER 
otherwise, xx is the release number of the version, the second 
mm/dd/yy is the date of the most recent system modification. 

Lines after the first have the following general format (some 
exceptions are noted in section 15.4.3): 

hh.mm.ss ac messages 

where hh.mm.ss gives the time of day in hours, minutes, and 
seconds since midnight. 

The next field, a£, contains a pair of characters which indicate 
the type and origin of the messages, respectively, a may be any 
one of the following: 

Character Message Type 

* Control statement 

Operator 

1 Informational 
W Warning 

F Fatal Error 

b User comment 

$ Accounting 

S Statistic 
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E Error in Operating System 

/ Hardware error 

| Continuation of previous message 

H Message from HYDRA (the program which 

control reading and printing of jobs) 
G Generated Control statement 

c is either " : " or blank depending upon whether the message 
originated from a peripheral processor program which is part of 
the Operating System or from a Central Program* respectively. 

The message itself follows. If the message is longer than 120 
characters, it will be continued on the next line after a 
repetition of the time. 

A line by line interpretation of the Job Log from the sample 
output follows: 

16.48.00 H: CR 35 J9997. SAMPLE PROGRAM 
16.48.04 H: CR 05 81 CARDS INPUT 

16.48.04 $:JOB J9997AG AT CTLPT 3. 

The Job deck was read in at 16.48.00 on the card reader with 
logical number 5 and 81 cards were in the deck. The job name 
J9997AG was given and the job entered execution at control point 
3. 

16.48.34 *:RUN,,mm,mCR. 

16.48.36 $:CM=16384(40000B) ,EC=0, CP=0, PP=0.172, SP=0 

16.48.37 W 1. WARNING IN OVERFL. 

The RUN card is reproduced (the CR option was specified in order 
to provide a sample of the cross-reference listing . - a simple 
'RUN' is adequate for most purposes — see section 15.1). The 
accounting message indicates that at the time the job entered 
execution, it requested a Central Memory field length of 16384 
(decimal) words, the equivalent of 40000 (octal) words, but did 
not call for any Extended Core Storage. The number of seconds of 
Central Processor and Peripheral Processor time required up to 
that point was zero and .172 respectively. System Processor time 
used was 0. During compilation, one warning message was generated 
by the program OVERFL. 

16.48.05 *:LGO. 

16.48.06 BEGIN OVERFL, CP TIME LOADING .249 

16.48.07 $;CM=4544(10700B) , CP=0.536, PP=2.320, SP=0.043 

The LGO cdntror s'tate mentals reproduced followed by a message 
indicating the initial entry name of the program and the central 
processor time used in the loading process. This is followed by a 
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second accounting message indicating the CM field length was 
automatically reduced ( after loading and prior to execution) to 
4544 (decimal) words, the equivalent of 10700 (octal) words. To 
this point, Central Processor, Peripheral Processor and System 
Processor time consumed were .536, 2.320, and .043 seconds 
respectively. ECS is not listed because it did not change. 

16.48.07 F: ARITHMETIC ERROR MODE 2 AT ADDRESS 003250 
16.48.07 I: INFINITE OPERAND USED 

16.48.07 I: OPERAND MAY HAVE RESULTED FROM A DIVISION BY ZERO 
16.48.07.1: REFERENCE TO WORD 01026 WHOSE VALUE IS INFINITE 

Execution of the main program OVERFL began at 16.48.06 and within 
a second an execution error was found which made it undesirable 
for execution to continue. The next four messages indicate the 
nature of the fatal error and various suggestions as to what may 
have caused it. (See Sections 15.4.3, 15.4.4, and 15.5.) 

16.48.07 $:JOB COMPLETED. CP=0.553, PP=2.853, SP=0.048 
16.48.07 $: PRINTED LINES = 227, PUNCHED CARDS = 

16.48.07 $: EFFECTIVE TIME 1.104 SEC, JOB COST = $0,105 

16.48.08 IrFUNDS REMAINING = $41,366 

The last four messages on the Job Log are accounting messages. 
The first indicates the total amounts of Central Processor (CP) 
time, Peripheral Processor (PP) time, and System Processor (SP) 
time required for executing the entire job (reading, compilation, 
loading, execution, printing). All time values are in decimal. 
The second message estimates the print and punch output generated, 
excluding Job Log and MSFILE messages. The last two messages give 
the time used for calculating the job cost, followed by the cost 
itself and, finally, the funds remaining in the account (this is 
not printed for all accounts). The formula for calculating the 
cost of a job may be found in the Guide to Computer Center 

Services. 

14.2.2 Source Listing 

The compiler normally reproduces each source statement on the 
OUTPUT fileset. 1 Each executable statement is prefixed with a 
relative location (relative address) which indicates where the 
object code generated for that statement begins relative to the 
subprogram origin. The locations are given in octal. The 
subprogram origin has a relative address of zero but is assigned 
an absolute address (relocated) during loading. 
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Statements, such as FORMAT, COMMON, DIMENSION, etc, which are 
non-executable, i.e., do not generate object code, are listea witn 
the relative location of the next executable statement in the 
subprogram. A CONTINUE statement which is not used as tne 
terminator of a DO loop will be treated similarly. 

All cards with a C punched in column 1 are printed as comments and 

..!__-_....!-- i~~~r*a k*/ fhc minnnpr. The compiler may, however, 

alter the ordr of some comments with respect to source statements. 

All local variables and constants used by a suprogram (excluding 
formal parameters) are assigned to relative locations beginning at 
the point where the subprogram object code ended. Variables 
assigned to a common block are given locations relative to the 
beginning of the block. Common blocks are given numbers in order 
of appearance* 

Compiler diagnostics may also appear in the source listing. The 
sample contains an *NP' diagnostic following the line at relative 
address 000037. See 15.4.1 for a discussion of compiler diagnos- 
tics. 

14.2.3 Compiler Storage Map 

' After each subprogram has been successfully compiled (no fatal 
errors have been diagnosed) and listed, the subprogram length is 
printed. In the sample output, it is 2237 (octal) CM words, 
Including space for the I/O buffers (usually 1001B words each) , 
for the main program OVERFL and 26B for the subroutine WORK. 

If the references option on the RUN control statement has been 
qnprified, an extended subprogram storage map which lists reteren- 
cfs Ts then Printed, undlr the heading STATEMENT FUNCTION 
REFERENCES (there are none in either subprogram) are given the 
relative addresses assigned to programmer-defined arithmetic 
statement functions together with the generated compiler tag 
assigned and the relative addresses of all references to each 
function listed. Under STATEMENT NUMBER REFERENCES are listed the 



1 The listing produced during compilation may be suppressed by 
inserting a statement with the word NOLIST starting in column 7 before 
the PROGRAM? SUBROUTINE, BLOCK DATA, FUNCTION or IDENT (for Compass 
subprograms) statement. The listing remains turned off for all 

L j. „ __., ,,~4-.ji 1-je-nnrr is restored bv a statement 

succeeding 

containing 



buuj/iuyiu."^ -Mc-Mna is restored by a statement 

succeeding subprograms until listing is resrorea uy overridde n 

containing the word LIST beginning in column 7. NOLIST is overridden 
whenever fatal errors (not warnings) occur. 



14-19 



statement label numbers used in the subprogram. The programm- 
er-assigned label or name is SYM TAG. Under GEN TAG is the name 
which the compiler has generated to use to refer to the symbol. 
Statement labels serving as branch points carry the prefix L. 
FORMAT statements and constants carry the prefix C. In the main 
program, OVERFL, for example, the statement which has been 
labelled 10 is compiled beginning at relative location 43B. The 
compiler has assigned that location a label, namely L00022, and a 
reference was made to it from relative location 36B. The location 
given for the statement label number identifying a FORMAT 
statement is the location in which the display code for the format 
itself, the alphanumerics between and including the outer paren- 
theses, is stored; it is not the relative location listed with the 
statement in the source listing. Thus FORMAT statement number 1 
is stored at location 102B. It is given the label C00010 by the 
compiler and a reference is made to it by an I/O statement at 
relative location 3, a READ statement. 

Under the next heading BLOCK NAMES AND LENGTHS are listed the 
blank and labelled common blocks and their lengths. Thus in the 
sample output, the compiler storage map for subroutine WORK shows 
three common blocks: blank common with a length of 202B; BLOKl 
with 536B words, and BLOK2 with 144B words. As can be seen from 
the load map for the sample program, blank and labelled common 
blocks are stored in different areas of the program's central 
memory field. 

Under VARIABLE REFERENCES are listed the relative addresses of 
most programmer-defined variable names actually referenced and 
where they are referenced. The compiler-generated label (GEN TAG) 
is prefixed with a V in the case of a simple variable, or with an 
A, for an array name. Locations given for variables in COMMON are 
suffixed by Cnn, where nn denotes the order of the particular 
common block as listed under BLOCK NAMES AND LENGTHS and the 
address portion indicates the relative position with respect to 
the start of the COMMON block. Thus in subroutine WORK, the array 
XXX is located at the beginning (000000) of the COMMON block 03 
(BLOK2). 

The programmer should bear in mind that because of the way the 
compiler operates not all references will be listed. An actual 
physical reference is necessary before the reference is placed in 
the reference map. If the required variable address is already in 
a register, the compiler will use the address in the register and 
not make an actual variable reference by name. Since subprogram 
formal parameters are always located in pointer registers their 
references are never listed. A reference to a statement number 
will not be listed if an actual jump is not necessary, such as 
when the code simply falls through to the next statement and the 
compilation of a jump instruction is therefore not necessary. On 
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the other hand, the code compiled for a logical IF statement 

usually involves a jump to the next statement so a reference may 

appear for it even though there is no reference in the source 
poogram. 

Following the list of VARIABLE REFERENCES is printed the starting 
location for the constants used in the program for locations used 
as temporary storage during calculations, etc, and for the area 
in which the variables are stored. 

The compiler storage map has many uses. The correct spelling of 
variable identifiers can be checked and misnamed variables caught 
(except when an array reference is misspelled, in which case the 
compiler thinks it is a function reference and, depending on how 
the reference is used, one of several error messages may result). 
As changes are made in the subprogram, new statement numbers and 
variable names can be checked for a previous use. The map is used 
extensively when interpreting dumps. 

If the references parameter is not specified in the RUN statement, 
an abbreviated compiler storage map is produced which omits the 
GEN TAG and REFERENCES listing. 

The last line of the compiler output indicates the 2600B locations 
were unused in compiling the main program and 3100B were unused in 
compiling the subroutine. Thus, the field length specified on the 
Job card could be reduced if it would not fall below the 40000B 
word minimum required by the compiler* 

14.2.4 The Loader and the Load Map 

Here we digress briefly to describe some aspects of the operation 
of the loader prior to describing the load map which it generates 
on the output. In addition to the loader discussion in this 
chapter, the writeup L3 CAL CLDR describes other loader features 
which allow more control of the loading process, use of auxiliary 
libraries, etc Some of this information is also to be found in 
CALIDOSCOPE Control Statements . 

The loader is a program in the operating system which accepts a 
translator-generated object code program as input and places it in 
the memory of the central processor in proper form for execution. 
The following information and concepts are useful in understanding 
how the loader performs its task. 

14.2.4.1 What the loader loads and where it finds it 

As each source subprogram in the source deck is successfully 
translated by RUN,- a copy of the generated relocatable object code 
program is stored (usually in the fileset named LGO). Additional 
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object code subprograms generated at another time (using the P 
parameter on the RUN card, for example) may come from the user's 
input deck (from fileset INPUT) or other filesets generated by the 
user. Control statements (described in CALIDOSCOPE Control 
Statements ) tell the loader where to find the relocatable object 
code subprograms which it is to use to construct the executable 
object program and specify the order in which they should be 
loaded. Loading is performed in the same order in which the 
filesets are specified and, within each fileset, in the order in 
which the object programs appear. 

14.2.4.2 The relocation of subprograms and COMMON blocks 

The object subprograms are read into contiguous locations in core, 
starting at a particular address, usually 100B, which is the 
initial load address . 

As 'a subprogram is loaded, the code and each relative address 
reference within it is relocated. That is, the subprogram origin 
(load address for the particular subprogram) is added to the 
address on the left margin of the source listing to determine 
where the code generated for that statement is to be stored. The 
load address is also added to the memory addresses within the 
code. Thus the internal program references remain consistent but 
refer to the actual addresses in which the program is stored. The 
load address is the memory address (with respect to the beginning 
of the memory field assigned to the job) of the beginning location 
of that subprogram. For subprograms after the first, this is one 
plus the last address of the preceding subprogram or labeled 
common block. 

Labeled common blocks are loaded as separate items. Each block is 
placed immediately in front of the first subprogram which declares 
it and is allotted the length declared for it in that subprogram. 
Therefore, if a longer block with the same label is declared in a 
subprogram which is loaded later, a fatal diagnostic message is 
issued. If a subprogram which declares a shorter block than 
actually allocated is loaded, a warning diagnostic message 
appears. The blank common block is loaded directly after the last 
subprogram loaded (including subprograms loaded from the library 
to satisfy external references) . It is allotted the maximum 
length declared for it (which need not be the length given in the 
first subprogram in which blank common is declared) . 

14.2.4.3 Communication linkage between subprograms 

During loading, each reference to an address which is external to 
a given subprogram (as in a CALL or FUNCTION reference) must be 
replaced by the relocated external address. This process is 
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termed linking. For example, in the sample program, the subrou- 
tine WORK, which has its origin at 3241B and ends at 3266B calls 
the function SQRT which comes from the standard subprogram library 
and has its origin at 7300B. SQRT is external to the program 
WORK. 

The address to which an external reference is linked is called an 
entry point , i.e., a location in a subprogram which is the start 
of a given section of the executable code and can be referenced by 
other subprograms. A subprogram ma v have more than one entr v 
point. Each PROGRAM, SUBROUTINE, FUNCTION, or ENTRY statement 
generates an entry point for the subprogram in which it appears 1 . 

14.2.4.4 Standard Subprogram Library 

Any entry point which is referenced but missing from the user's 
program is automatically searched for in the standard subprogram 
library. A copy of the subprogram which contains that entry (if 
found) is then loaded into the user's memory field after the 
user's program and is linked to it. This program in turn may 
call for still others from the library f ileset. Note that only a 
missing entry name will be requested from the library; thus, the 
SQRT library function will not be loaded if a subprogram named 
SQRT is supplied by the user. 

Many library subprograms are referenced by the code generated by 
the RUN Fortran compiler as it compiles the object code for many 
of the Fortran statement types. For example, input/output (e.g., 
READ, WRITE) statements generate calls to library subprograms 
which perform I/O and format conversion. These can be seen (e.g., 
INPUTC, OUTPTC) in the load map. Section 15.6.1 lists all such 
names which may conflict with Fortran subprogram names. Chapter 
11 contains a general description of the contents of the standard 
subprogram library. 

14.2.4.5 Unsatisfied References 

If a referenced entry cannot be found either among the user's 
subprograms or in the library, it is called an unsatisfied 
reference . Execution is allowed in such cases. However, in 
instances where a reference is unsatisfied unintentionally [e.g., 
if the user's program leaves out a subroutine, or neglects to 
dimension an array (in an expression, a reference to an element of 



1 In general, an entry point indicates what a subprogram has available; 
an external reference indicates what a subprogram needs but does not 
have available. r The loatTer attempts to satisfy all of eactr" subpro- 
gram' s needs using what is available. 
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an array has the same syntax as a function call and will be 
interpreted as such by the Fortran compiler)], and an attempt to 
execute the non-existent subprogram is made a fatal error occurs 
(see section 15.4.2). 

14.2.4.6 Memory Backgrounding 

The locations in memory used to store the object code for the 
program's instructions and the locations whose contents are 
specified in DATA statements are initialized by the program. The 
contents of all other areas used by the program (e.g., COMMON 
areas, locations reserved for variables) are preset to a standard 
value, which has the following form: the upper 30 bits contain a 
negative indefinite real value (6000777777B) and the lower 30 bits 
contain a jump to an address of the form 400000B + xxxxxxx, where 
xxxxxxx is the address of the word itself. For example, the 
location 076340B would contain 60007777770200476340B. This value 
is intended to halt execution with a fatal error if the program 
uses it in a floating point calculation or attempts to execute it 

s> e an i nef viipf i «r> . MUr>» **n^« W -» U<li. -»__,.„_ jll> _— _ _ — _. j_ 
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attempting to use 'undefined' numbers and the form of the number 
frequently helps identify the problem. There is no hardware 
facility to check for the use of an undefined integer quantity; so 
this error may manifest itself in obscure ways. For practical 
purposes this means a variable should never appear to the right of 
an equal sign unless it either appears in a prior statement to the 
left of an equal sign, has had a value assigned to it by a DATA 
statement, or appears in the list of a prior READ statement. 

14.2.4.7 Error Detection in the Loader 

Some error conditions are detected by the loader. Some are fatal 
(e.g., no main program), others are not (e.g., unsatisfied 
references). All detected errors are signalled by some (hopeful- 
ly) explanatory message. However, some error conditions are not 
detected by the loader. For instance, the loader can not check to 
be sure that the actual parameter lists given to a subprogram 
agree with what is expected by the subprogram in its formal 
parameter list. 

14.2.4.8 The Load Map 

As the loader loads each subprogram, it writes a map of the 
program on the OUTPUT fileset. The first line of the load map: 

BEGIN CLDR2.2F 6 OCT 73 16:48:06, CPU TIME USED IS .283 SECONDS 

identifies the version of the loader in use, gives the date and 
time the load operation began and the amount of central processor 
time used within the job prior to the load. In this case, the 
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loader version is CLDR2.2F, the load began on 6 OCT 73 at 16:48:06 
after using .283 seconds of CP time in the job. 

The second line of the load map contains the column headings for 
the map itself. The significance of these headings is: 



BLOCK 



This column lists the names of the program blocks 
and COMMON storage blocks in the order in which 
their space is allocated in memory. Common block 

namPR are* surrounded bv slashes. 



ORIGIN 



LENGTH 



DATE 



TIME 



PROCESSOR 



FILE 



This is the address within the central memory field 
where the block begins. 



This is the length of the block. 

This is the date of the creation 
code* "e.g., translation by RUN 
program. 



of the 
from a 



object 
source 



This is the time of the creation of the object 
code. Together with the DATE field, this field 
makes it possible to verify that the correct 
version of a program was actually used. 

This is the identification of the processor used to 
produce the object code. 

This is the name of the fileset from which the 
subprogram was loaded. The standard subprogram 
library is named SUBRLIB. 



The DATE, TIME, PROCESSOR, and FILE fields appear only for program 
blocks. A special block named SYS. MAP is generated by the loader 
itself and is identified by the words "DIAGNOSTIC STORAGE MAP" in 
the above fields. 

The blank COMMON block appears at the end of the load map and is 
identified by a block name which consists only of a double slash. 

Error diagnostic messages may appear interspersed with the load 
map to indicate the points at which errors were detected. 

Following the load map itself, a list of unsatisfied references 
appears in the sample program. This section will not appear if 
there are no unsatisfied references. In this case the reference 
to VARNM found at relative location 41B in program OVERFL is not 
satisfied. It has been given an arbitrary definition at 7461B 
which is a diagnostic printing procedure for this condition 
contained in library subprogram SYSTEM. 
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The final message from the loader states that the process of 
loading the sample program requires 27357B words of memory to hold 
the program, the loader, and the loader's working tables while the 
program is being loaded. However, once execution of the program 
begins, only 10617B words will be required. Since memory is 
allocated in blocks of 100B words the effective figures are 27400B 
and 10700B respectively. 

All addresses used in the load map are in octal and are relative 
to the starting location of the user's memory field, considered as 

location 0. 

14.2.4.9 Memory Allocation 

The executable program is constructed within the central memory 
field. The sample program illustrates how large an area of memory 
is used for even a small program. In the diagram of the load map, 
the user program code and common blocks are seen to occupy only 
about 1100 cells. Three large areas occupy most of the diagram 
(see Figure 14.2). They are: 

a- The input/output buffers 

The size of the main program, OVERFL, is due to large blocks 
of memory for buffers for filesets declared on the PROGRAM 
card. These buffers are allocated within the main program 
area by the compiler. Determination of the buffer length is 
as described in Section 7.4. The purpose of the buffers is 
described in Section 15.2. 

b * Thg,_llbr_arY routines 

The RUN Fortran compiler generates code which calls in large 
library subprograms to handle communication, data movement 
and conversion, etc The bulk of the space shown for library 
routines in the diagram is used for reading cards and 
printing output. 

c • The. ... I o § d e r itself 

The leader program and its tables effectively occupy the high 
addresses of the memory field during the loading process. No 
object program can be loaded into the same space. However, 
blank common can be placed there. The programmer who is 
pressed for core space during loading may possibly gain about 
2OCO0F: w::r: 5 « by placing arrays in a blank common area of at 
least. ': % &r. ] e n c t h • 
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100B 



636B 



3075B 

3241B 
3267B 



10415B 
10617B 



37777B 



System Communication Area 



/BLOK1/ 



Labeled common block declared in 
OVERFL and in subprogram WORK 



OVERFL Main Program 
Object Code 
Constants 



xeiiipui ax less 



Local Variables and Arrays 
I/O Buffers and Tables 



/BLOCK2/ Labeled common block declared in 
subprogram WORK 



WORK Subprogram 



Library Subprograms 

INPUTC Coded Input Editor 

IOMSG$ Coded I/O Diagnostics 

10. SUP I/O Supervisor 

LEGVAR LEGVAR Function 

OUTPTC Coded Output Editor 

SQRT Square Root Function 

/SYS. MEM/ Memory Allocation Parameters 

SYSTEM Execution Supervisor 

SYS. MAP Diagnostic Storage Map 

Blank Common Length is Maximum Declared 



Space unused during loading 

Loader Tables (Length Depends on Program Loaded) 



The Loader Itself Effectively Occupies this Space 
Last Word of Central Memory Field 



Figure 14.2 Central Memory Layout for Sample Program 
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14.2.5 Execution 

If a Fortran program is loaded with no fatal errors, control is 
transferred to the first executable statement of the main 
program . Execution then proceeds as dictated by the statements 
of the source program. 

Caution- when execution begins, variables not assigned a specific 
value in the program (including variable subscripts and variables 
in labeled common) , have a predetermined value as described in 
Section 14. 2.4.6. 

As part of execution data may be read from any fileset specified 
and information may be written on any unprotected fileset 
specified. Normally, 

1. data (if any) are read (in the order in which they are 

arranged in the data deck) from the fileset INPUT as 
specified by READ and FORMAT statements; 

2. information to be printed is placed on the fileset OUTPUT as 

specified by PRINT and FORMAT statements. Information is 
printed 56 lines per page, unless otherwise specified by 
a carriage control character (see Section 10.1). There 
is automatic skip over the page fold unless suppressed by 
a carriage control character. 

Execution Printout : The Sample Program was designed to illustrate 
execution time errors. The execution print lines were generated 
at the points in the program noted below. Each point is 
identified by the subprogram name and the relative location (in 
parentheses) given in the source listing for that subprogram. 
Execution begins with the READ statement in OVERFL (relative 
location 3) and proceeds sequentially except as noted below. 
Blank lines are not itemized in the table. 



If more than one main program is loaded (a rather strange thing to 
do) , control is transferred to the last one loaded unless the 
programmer explicitly directs otherwise. 
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Print Location 
Q| .PRINT 

QVERFL(llB) 



FORMAT 
Used 



Comment 



The value read into variable A from a 
data card is printed out by OVERFL (as a 
check for correct input) using G format 
conversion. It is also printed with too 
little space under F conversion to show 
what- haooens when a field is too small. 



OVERFL ( 2 3B) 



3-6 SQRT 



OVERFL (51B) 



The program reached this PRINT statement 
only because B is an infinite value as 
determined by the LEGVAR library subrou- 
tine. B is printed with both G and 
format conversions to illustrate that an 
infinite prints as an R when a numeric 
specification (I,F,E,G) is used. (Sec- 
tion 9.3) 



OVERFL calls the subrouti 
compute the square root of 
parameter and places it 
parameter. In the first cal 
relative location 43, the re 
without a message being pr 
the call was legal. In the 
however, at relative locati 
value whose square root is 
lated is negative. This il 
ment was deliberately passed 
illustrate this execution 
message, which is explained 
Section 15.4.2. SQRT retur 
finite value as the function 



ne WORK to 

the second 

in the first 

1 to WORK at 

turn is made 

inted since 

second call 

on 47, the 

to be calcu- 

legal argu- 

in order to 

time error 

further in 

ned an inde- 

value. 



1 An explanatory comment is printed by 
OVERFL. The indefinite value returned 
is printed with both G and format 
conversions. Note that the indefinite 
prints as I when a numeric conversion 
specification is used. 

The last call of WORK in OVERFL (61) caused execution to terminate 
with an arithmetic error - use of an infinite value (for variable 
B) in a real expression. 

This error exit triggered the dump which follows. Note that no 
execution time error message was printed via the fileset OUTPUT 
for the ARITHMETIC ERROR because it was sensed by 



the 6400's 
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internal circuitry (hardware) rather than by a program (software) . 
This error and interpretation of the dump are discussed in 
Sections 15.4.4. and 15.5. 

14.2.6 Punched Output 

Two types of punched card output may be generated during a job. 
The first is binary cards containing the compiled object program 
if requested; the second is output from the execution phase of the 
job, usually coded (Hollerith) cards, generated by the PUNCH 
statement. These are punched on orange top striped cards by the 
system, with "picture" cards at the beginning for identification 
purposes. The picture card has columns 1-3 and 78-80 completely 
punched, and the job identifier (the first 4 numbers of the job 
name plus a 2-digit sequence number) punched in block letters on 
the card so that they can be interpreted visually. The picture 
cards should be removed from the output decks. A sample picture 
card with the job identifier 99980Y is shown below. 



V 



III III III III 
I I I I I I I I 

I II II III 
I II I II I II III 
III I III I III I I I 
i i ill 

i ii ii ill 

llll llll llll Ill 



HUH I I 
I I I 
I I I 
f I I 
I I 
I I 
I I 

iiiiii i 



) 



Figure 14.3 Picture Card Separator 

Binary Cards : Binary cards containing object code from compila- 
tions, if any, are terminated by a 7-8-9 level 17B card, and a 
6-7-8-9 card. The latter should be discarded. Each object code 
subprogram is terminated by a 7-8-9 card which must be left as 
part of the deck. 

Each subprogram deck is sequentially numbered in binary in the 
lower six rows of column 7 9 and in column 80, beginning with the 
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number 1. Thus, card 1 of the deck has a 9 punch in column 30; 
card 2, an 8 punch; card 3, 8 and 9 punches; card 4, a 7 punch; 
card 5, 7 and 9 punches, etc 



Card 1 (a 9 punched in column 80) of each subprogram deck contains 
the subprogram name in display code (Appendix A, Table H), two 
characters per column, in columns 8-11. In the card shown below, 

^/-\1nmn R rnnf a 1 r\ C 1.Q nnnoViae • Oftllimn Q nAnfainr 11 A 1 1 -.n/^ O 

punches. Starting at the top (row 12) of column 8 and reading the 
holes in groups of 3, we obtain 000 100 000 001 (binary) or 0401 
octal. Continuing similarly for the other columns, the subprogram 
name becomes 04013106B. Looking up the 2-digit octal codes in 
Appendix A, Table H, gives DAYF for the subprogram name. 



i 



I 



|0Q00 

-5-8-? 
| 1|| 11 11 

■■|2222 

|I|3333 



4 14 4 4 4 4 
*5 5 5 5 5 



III 



V 

88 
II 



GG5 

■5-8— f 



717 7 7 

3|88 8 



Punches in this row are called "12" punch 



00000000000000 



t-28-?W»:39-39-Jt :-?%-3+-3 r j -36-J)- 



00000 



00000 





■38-49-4h«J43-«-*5-«-4VJ48-*Mfr*H): 

Mil 



~ ; Punches in this row are called "11" punch 

JO ( 

VThe first character of the subprogram 
2 22:name. Here it is 000100 2 = 04 8 or D »^2 2 

in 6400 internal BCD code. 
■ 33 L,_ _ _ . , ,1333 



2S 

2S' 



4WJ-44I444 4 4144 444 



5 1 5 s' 

V 



9 9 9 9 91 9 9 9 9 

IBMJ8352I 



00000 

H-*r-W~§S-M 

11111 

22222 
3 33 33 





11111 

22222 

1 •) 1 7 1 



4444 4(4444 4 



rrrrnicrrcc 



4444 444 4 4 4J4 444 4 4 4 4 4 4 



Ir tr c r 



c c c c lc 



V The second character of the subprogram 
3 ^name. Here it is 000001 2 = 01 8 or A 
■TT^in 6400 internal BCD code. 



55 



G 



I 



8 3 8 8 8 8 3 8 8 3 
9999 91993 99 



99999 



3888 8 
99999 



93999 



388 3 3 13 8 8 8 3 

I 
3 9 9 9 i)j9 3 3 9 9 



'77 
8888 8 
9 939 9 



4 4 4 4 4 
55 555 



8 6 G 6 5 

J-M-siliJ-yi W-56- if 

7 7 7/7 



0000 

63-64- a Urbh 

11111 
22222 



000 

=iH3-W-7:- + : 

1111! 
22222 





1 1 11 11 1 1 £ 

2 2 2 2 2 2J 2 « 



4 4 4 4 4 
55555 



4 4 4 4 1 



555 



3 3 3 3 3*3 333333333333 £ 

4 4 4 4 4j4 4 4 4 4 4 4 4 % 

5 5 5 5 Si5 5 5 5 5 5 5 5 5 



'JGG88]S6S8S 



3-50 tHHn-S £{50-64 

7 7 7 7 7 



7 7 7 7 7 

8 8 8 3 3 



33888 

9 9 9 9 9]9 9 9 9 9 



8 8 888 

9 9 9 9 S 



SGGS8J6G06666G ^ 

WS9-,-,>;i-.,j/j ?4 ,j ;.; /i -o ;s 53 

7 7 7 7 7j7 7 7 7 7 7 7 7 

8 8 8 o c*8 8 3 3 3 8 8 

9 9 9.9 919 9 9 9 9 9| 



Figure 14.4 Sample Binary Card 

Execution Output : The deck of coded cards produced by PUNCH 
statements (if there are any) on the fileset PUNCH during 
execution is terminated by a 6-7-8-9 card (6,7,8,9 punches all in 
column 1) which should be discarded. 

It is also possible to produce binary punched output during 
execution by performing a binary (unformatted) write on a logical 
unit whose fileset name has been equivalenced to the fileset 
PUNCHB on the PROGRAM statement (or as described in Section 
13.0. 2) . In this case, the binary output follows the binary "cards 
from the compilation, if any, with no intervening picture card. 
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Binary (PUNCHB) cards are punched in this manner: 

columns 1-2, checksum and word count 

columns 3-77 15 binary words, 5 columns per word, 

columns 78-80, binary card sequence number. 

Note: AH cards punched during a job are counted in the punched 
card limit specified in the job card. If this limit is 
exceeded, the job is aborted with a message, and the punched 
output is terminated with a 6-7-8-9 card. If the operator 
terminates the punching, the punched output ends with a 
picture card with ENDED in block letters. 

14.2.7 Magnetic Tape Input/Output 

The input/output statements, discussed in Chapter 10, are used to 
control the reading and writing of information on magnetic tape; 
the form in which information is recorded on tape is described in 
Section 13.2.3. 

Information may be recorded in either binary (unformatted) or 
coded (formatted) mode on tape. For efficient use the binary form 
is recommended; since the information is written on the tape 
exactly as it appears in memory, no time-consuming conversions 
need to be performed. However, for compatibility with other 
computers, or initial entry of data to the system, coded is the 
preferred mode. 

Temporary filesets (sometimes called "scratch" or "work" files) 
which are written and read within a particular job should also, 
for efficiency, be written in binary mode. Temporary files are 
usually not written on reels of magnetic tape, but are recorded on 
magnetic disk storage; they are discarded at the end of the job in 
which they are used. No special provision need be made for them 
except declaring them in a Fortran program on the PROGRAM 
statement (Section 7.4). As far as the programmer is concerned, 
they behave as actual tapes except that rewind is almost 
instantaneous. 

Filesets which are assigned to actual tape, either for program 
input or output, must be declared in the PROGRAM statement and 
appear on a REQUEST card. (See CALIDOSCOPE Control Statements ) . 

14.3 Other Job Setups 

Besides the deck shown in Section 14.1 to compile and execute a 
Fortran program, the following sample decks may be useful to the 
Fortran programmer. A more complete description of control 
statements is given in CALIDOSCOPE Control Statements . 
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14.3.1 Load a program from pre-compiled binary decks and execute 

Once a program has been successfully compiled* a deck may be set 
up to run the program without redoing the compilation. This saves 
the cost of compilation in cases where 'production' runs are to be 
made with different sets of data- 

To do this, one first obtains a copy of the relocatable object 
code form of the program on cards by specifying the P option on 
the RUN card (see 15*1 and 14*2*6) 'remember the ^unched output 
limit on the job identification statement). The following deck 
may be set up to execute the cards that the compiler punches: 

Deck Remarks 

Job card 

LGO, INPUT. Load binary decks from fileset INPUT (job 

deck) and execute. 
7-8^9 card End of control card record. 

Binary program decks 
7«-8~9 card follows program deck in. addition to the 

7-8-9 card following the last binary 

card. 
<Data cards> If any are to be read from fileset INPUT. 

6-7-8-9 card EOI (End-of-Information) 
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14.3.2 Compile and load some routines, load others from pre-compiled 
relocatable binary decks, and execute 

In some cases, a problem may have been broken up into a number of 
subprograms some of which may be gotten into a satisfactory state 
while others are still being debugged. In this situation, the 
cost of recompiling the subroutines which are already known to be 
operating correctly can be avoided. First, obtain relocatable 
binary decks for the subprograms which are correct by using the P 
option on the RUN card (see 15.1 and 14.2.6). Next, remove the 
source decks for these routines, leaving only the ones that need 
to be recompiled. Then use the following deck setup: 

Deck Remarks 

Job card 

RUN. Compile source statements. 

LOAD,LGO. Load compiled routines. 

LGO, INPUT. Load binary routines from INPUT fileset 

and execute. 

7-8-9 card End of control cards, 
source deck 

7-8-9 card End of source deck, 
binary decks 

7-8-9 card In addition to 7-8-9 following last 

binary card. 

<data cards> If any. 

6-7-8-9 card EOI (End-of-Information) 

Note: 

If duplicate program names are loaded via a LOAD card (from 
either LGO or INPUT f ilesets) , only the first is used; a 
warning message is given. Thus, with this deck setup, the 
compiled subroutines are loaded first; they will override 
any decks of the same name which might already exist in the 
precompiled subprograms. 
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MISCELLANEOUS RUN NOTES Chapter 15 



15.1 The RUN Control Statement 

The general form of the RUN statement is:* 

RUN, [mode] 9 [pi] ,[b£] 9 [Input] .[output] ,[lgo] ,[e.pl] y [a6a] ,[CR] , [NA] 

The most important parameters for most users are mode, and CR. For the 
remaining parameters, the default is normally used. 

modd Compiler mode option 

S compile and print out source listing (this is the default). 

P compile, print out source listing, and punch binary decks 
of the object code generated (see Section 14.2.6). 

L same as S with the generated object code for each 

source language statement listed using COMPASS mnemonics. 

M same as P with the generated object code for each 

source language statement listed using COMPASS mnemonics. 



pi In the current implementation of the system, this parameter field 
is ignored. 

bl standard object program input /output buffer lengths (If not over- 
ridden in PROGRAM statement). If omitted, 1001 o is assumed. 

o 

Ajvput name of the fileset from which the RUN compiler program reads 
its input. If not specified, INPUT, which is the disk fileset 
consisting of information read in from the card reader, is assumed. 

output The name of the fileset on which the RUN compiler is to write the 
source listing portion of its output. If omitted, OUTPUT is 
assumed. 

iQO The name of the fileset on which the RUN compiler program is to 
write the binary machine code that is to be loaded, not that to 
be punched. If omitted, LGO is assumed. The fileset is not 
rewound prior to use by the compiler, thus allowing several 
compilations from different RUN statements to be placed on the fileset 



e.p-t This field is ignored under the current system. 



This format is subject to change. 
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ol&ol if zero, the normal ASA I/O list and format interactions are 

suppressed at execution. Use of this feature is not recommen- 
ded. (See Section 9.7) 

CR If specified, the reference table for each sub- 
program is printed after the source listing on the OUTPUT file- 
set. This is often convenient when the mode parameter is L or M. 

NA If specified, and a fatal compilation error occurs, the job step 
will not set the current error flag and control statements will 
continue to be processed. 

Examples ; 

RUN. Compile (!•&•» load and execute RUN compiler program) 
with source list. 

RUN,L,,,TAPE3,,,,,CR. 

Compile with source listing and COMPASS mnemonics for 
the generated object code. The source language state- 
ments are read from fileset TAPE3 rather than INPUT 
(i.e., the card reader). A reference table is 
to be printed for each subprogram. 

15.2 The FET and I/O Buffer Area 

The compiler assigns to each distinct (not equivalenced) fileset 
named in the PROGRAM statement an area, following the machine code for 
the main program , to be used as a communication area and buffer for 
the fileset. The communication area is called the Fileset Environ- 
ment Table (FET) and directly precedes the fileset buffer it describes 

This table (currently 17 words long) provides the name of the fileset, 
an area where I/O requests and their statuses are posted, and 
pointers to indicate where information should currently be placed in 
the buffer or read from it. The buffer holds information 
waiting to be written on a fileset or input records awaiting a READ 
reference within the program. It serves to compensate for the dif- 
ference in the speed at which the Central Processor executes the 
program and the slower speed at which the physical I/O device sends 
or receives data. 

On output, when a record is sent to an I/O device, the area of the 
buffer which contained that record is freed. On input, an area for 
the physical record must be available within the buffer in order for 
data to be transmitted from the device. 



15-2 



The buffer for a fileset is emptied when an ENDFILE or REWIND is issued 
for it. When execution is terminated normally or for fatal lib- 
rary subprogram errors (Section 15.4.2), the information in the buffers 
of all output filesets is transmitted to the I/O devices. On an abnor- 
mal termination, such as ARITHMETIC ERROR (Section 15.4.4) or TIME LIMIT, 
information may still be in the buffers awaiting output . After an abnor- 
mal termination, the system empties (flushes) the buffers for any file- 
sets with dispositions (such as OUTPUT) , provided the FET is intact and 
no limit (such as print limit) is exceeded. 

Buffer sizes for filesets are determined by the PROGRAM statement (Sec- 
tion 7.3). The standard buffer size for a fileset is lOOlg words which 
is the minimum for a binary magnetic tape fileset. (The minimum buffer 
size for a disk fileset is iOig words.) But with a bigger buffer area, 
the program may not have to wait (i.e., stop the sequence of calcula- 
tions) for space in the buffer to be freed, thus reducing the amount 
of PP time used. 

15.3 RUN-COMPASS Subroutine Linkage 

Since it may be convenient or necessary for some subroutines or functions 
called by a program to be written in COMPASS, the manner in which COMPASS 
subprograms should be constructed and how RUN compiled Fortran subpro- 
grams communicate with them is important. • . • ' 

If COMPASS subprograms are to be compiled along with Fortran-coded sub- 
programs, the first ii ne of each COMPASS subprogram must be one on which 
the first 10 columns are blank and columns 11-15 contain the characters 
IDENT. The last line is one with the characters END in columns 11-13 
and the remainder blank. For efficient compilation, COMPASS subpro- 
grams should be grouped together after the subprograms written in For- 
tran language. 

The RUN-COMPASS linkage is explained by an example followed by comments. 
The example consists of a Fortran main program and two subroutines. 
The Fortran statements are followed by the machine-language instruc- 
tions which they generate, suitably commented. The Fortran statements 
are underlined to help distinguish them from the machine code. 

PROGRAM MAIN (INPUT, OUTPUT ) 

ENTRY MAIN This declares the location 

MAIN to be an entry point, 
i.e., accessible from outside 
entry/exit trace (see notes below) 



initialize FETs , etc. 

address of first parameter to Bl 
address of second parameter to B2 
address of third parameter to B3 
call PHD with three parameters, 
linkage and trace information (see 
notes below) 
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+ VFD 
MAIN SBl 
SB2 
RJ 




42/OLMAIN,18/102B 

*-l 

COOOOl 

=XQ8NTRY 


CALL PHD(A,B, 


,C) 




SBl 
SB2 
SB3 

+ RJ 
VFD 




A 

B 

C 

=XPHD 

6/07, 6/3, 18/MAIN- 



CALL PEN(M,N,Q,P,Q,R,S,T,U,V) 
SB1 M 



SB2 


N 


SB3 





SB4 


P 


SB5 


Q 


SB6 


R 


SA1 


-1+=XPEN 



SB7 



SX6 



SA6 



SX7 



Xl-6 

S 
A1-B7 



C A "J 


A C i 1 
iiUTJ. 


SX6 


u 


SA6 


A7+1 


SX7 


V 


SA7 


A6+1 


+ RJ 


=XPEN 


VFD 


6/07, 6/10, 18/MAIN-l 


END 




SUBROUTINE PHD(A,B,C) 


ENTRY 


PHD 



VFD 



PHD ESS 



RETURN 



42/OLPHD,18/3 



EQ 



PHD 



The first six 

parameters' addresses 

are passed by way 

of the 

first six 

B-registers. 

fetch entry/exit trace from 
PEN and 

calculate number of para- 
meters it expects less 6. 

Pass address of parameter 7 

to indicated word in PEN. 

Pass address of parameters 

8, 9, and 10 similarly. 

Up to a total of 60 parameters 

can be passed using the 

RUN calling 

sequence. 

call with 10 parameters 

linkage and trace information 
(see notes below) 



This declares PHD to be an 
entry point, i.e., accessible 
from outside. 

entry/ exit trace line (see 
notes below) 

Entry /exit word for RJ instruc- 
tion in calling program 



RETURN 



END 
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SUBROUTINE PEN(A,B,C,D T E.F,G,E,I, J) 
ENTRY PEN 



G 


BSS 


H 


BSS 


I 


BSS 


J 


BSS 




VFD 


PEN 


BSS 



42/OLP EN, 18/10 



This declares PEN to be an 
entry point 

address of parameter 7 

address of parameter 8 

address of parameter 9 

address of parameter 10 

entry/exit trace line (see 
notes below) 

Entry/exit word for RJ instruc- 
tion in calling program 



RETURN 



EQ 



PEN 



END 



RETURN 



The linkage performs three functions: passing parameters, providing return 
information, and providing traceback information (to be used in case of 
error) . » 

Parameter passing . In executing a call, the caller places the addresses of 
the parameters in B-registers and words in the called subprogram. The 
address of the first parameter (if any) is put into Bl, the address of 
the second parameter (if it exists) is placed in B2, and so on up to the 
6th parameter. If more than 6 parameters are being passed, the addresses 
of parameter 7,...,n < 61 are placed in words preceding the entry point 
of the called subprogram. Note that the number of parameters being 
passed is available in the linkage and trace information line in the 
caller and in the entry/exit trace line in the called subprogram (see 
description below). Also note that both of these parameters counts 
govern the storage of parameter addresses in the called subprogram; if 
the counts do not agree, something may be clobbered. RUN compiled sub- 
programs do not automatically check that they are being passed the cor- 
rect number of arguments but this may be determined by using the lib- 
rary subroutine NARG. 

Return address . The RJ instruction executed by the caller transfers to 
the called subprogram at the location one greater than the entry point. 
It simultaneously places a transfer in the entry point location which, 
when executed, will transfer to the (location of the calling RJ) +1. 
Thus, execution of the subprogram begins with the location after its 
entry point and the subprogram can return to the caller by transferring 
to the subprogram's own entry point. 
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Traceback information . Information is stored in the word preceding the 
entry point of all subprograms (the word labeled 'entry/exit trace line' 
in the example) and in the low 30 bits of each RJ word which calls a 
subprogram (labeled 'linkage and trace information 1 in the example) to 
allow automatic analysis of the paths leading to errors. An example 
of such analysis is the run-time error message traceback described in 
Section 15.4.2. The general formats of these words follow: 

entry/ exit trace line 
VFD 42/0Lname,18/nparms 

YWm<L is the name of the subprogram containing the entry/exit trace line 
(RUN-compiled subroutines contain the name of the subroutine here, for 
example). npCLAmb is the number of parameters expected by this program 
when it is called Cexcept in a main program, where it is the load address 
+ number of fileset names* declared on" the PROGRAM statement) . 

linkage and trace information 
VFD 6/07,6/nparms,18/addr 

npaAm& is the number of parameters being passed with this call, addx is 
the address of this subprogram's entry/exit trace line. The minus sign 
shown on this VFD causes the information to be stored in the low 30 bits 
of the RJ instruction where it belongs (without the minus, COMPASS would 
*force upper' after the RJ and store the VFD information in the word 
following the RJ.) 

Returning parameters . A subroutine returns parameters by resetting the 
values in the appropriate words whose addresses it has been passed. A 
function returns its value by placing the value in X6 (and X7 for double 
precision or complex functions) before returning. 
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15.4 Error Messages 

Various classes of errors are detected during the running of a job. 
Compiler and assembler programs issue diagnostic messages when errors 
in rules for forming statements (syntax) are caught. Section 15.4.1 
describes the diagnostics produced by the RUN compiler. Various 
library subprograms, called during the execution of a program, check 
for mistakes in their usage and issue error messages to the OUTPUT 
fileset if errors are found; these Fortran execution time error messages 
are listed in Section 15.4.2. The programs of the Operating System 
produce messages on the Job Log if they detect errors during execu- 
tion; these errors are discussed further in Section 15.4.3. Finally, 
the internal circuitry of the 640O detects a class of arithmetic 

~-w»-v,-x -»-,-. A «r5/-«-^T"kQ/1 in 1 ^ A A . 
cl J. vjx. a ucai.4. -i_u»v-vi j-ai. j--^ ..... 

It should be noted that some messages from RUN Fortran programs win 
normally appear in the JOBLOG and do not indicate an abnormal condi- 
tion. Among these are; 

Message occurs when 

END name an END statement is executed or a RETURN statement 

is executed in a main program 

STOP n name a STOP n statement is executed 
PAUSEn a PAUSE n statement is executed 

EXIT name a CALL EXIT statement is executed 

name indicates the program which executed the statement. 

15.4.1 RUN Fortran Compiler Diagnostics 

15.4.1.1 During a Fortran compilation by the RUN compiler, 2- or 3-character 
diagnostic mnemonics follow statements which are incorrect; other diag- 
nostic mnemonics may follow the END statement or the storage map and 
indicate types of errors in the program which are not attributable to 
one given statement. RUN Fortran compiler diagnostics are of the form: 

***XXY************************************ 

where XX is a two-character error type indicator and Y is either 
blank or F; a blank signifies a warning diagnostic and F indicates 
a fatal diagnostic. 

Warning diagnostics are given for statements that appear in the wrong 
order in a subprogram or are inconsistent with a previous statement. 
The compiler accepts the statements and produces the appropriate object 
code to perform the indicated operation. Statements so marked should 
be checked by the programmer for the intended meaning or sequence. 
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Fatal diagnostics cause the object code for the current subprogram 
to be deleted from the relocatable binary fileset. If punched binary 
cards of the object code were requested, none will be produced for 
the subprogram. The compiler will translate succeeding subprograms, 
but the program as a whole will not be executed. Also, unless other- 
wise specified on the RUN card, control statements in the control record 
will be skipped as described in CALIDOSCOPE Control' Statements . 

The number of warning diagnostics (m) and fatal diagnostics (n) found 
in program name is indicated by a message in the JOBLOG such as : 

n ERRORS m WARNINGS IN name 

When n or m is 1 or 0, the text of the message is suitably modified. 
name, is the name of the subprogram in which the errors were detected. 
The total number of fatal errors in all programs compiled with one RUN 
statement is indicate in a JOBLOG message thus: 

FORTRAN FATAL ERROR TOTAL: n errors 

A statement may have more than one diagnostic message associated with 
it. Also an error in one statement may cause diagnostics to be issued 
for succeeding correct statements . 

For each type of diagnostic message found in a subprogram a further 
descriptive message appears at the end of the listing of source state- 
ments for that subprogram. This message gives a brief explanation 
of the error, the relative locations where it was found, and is of the 
form: 

xx****** Explanation o$ the, eJi/ion 
nZoc y Hloc 2> nijody ... 

where XX is the two-character error type indicator found in the 
diagnostic message and each Ktoo.^ is a relative location associated 
with the statement in which the error occurred. 
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The following alphabetical list contains each two-character 
error type indicator generated by the RUN Fortran compiler 
with its diagnostic message. Further explanation of the error 
and a possible reference to a section of this Guide accompanies 
each item. 

Note that "SYNTAX ERROR" refers to a punctuation error such as 
the incorrect use or absence of a comma, period, slash or 
parenthesis. 

._.....■. j. j. j. j. t. TumTK/rc-KiT rrffTTttT T(Yl WTfZH 

Indicates that the number of arguments in this reference to an 
arithmetic statement function is greater than the number of 
formal parameters. See Section 7.8. 

AE ******* ARITHMETIC STATMENT FUNCTION CALLS ITSELF 

The arithmetic statement function being compiled references 
itself. 

AF******* ARITHMETIC STATEMENT FUNCTION ERROR 

The arithmetic statement function has a statement number or 

appears after the first executable statement. This diagnostic 

can also be caused by having a subscripted variable on the left 

side of a replacement statement without the variable appearing 

first in a DIMENSI0N, COMMON, or type statement. See Section 7.8 or 5.2 



A l******* 



£5******* 



SYNTAX ERROR IN ARGUMENT LIST 

Indicates that the list of formal arguments of a subprogram is 
improperly constructed. It may be caused by an incorrect use 
of a library function. See Section 7.2.1 or Chapter 

11 This diagnostic can also be caused by having a subscripted 
variable on the left side of a replacement statement without 
the variable appearing first in a DIMENSI0N statement. See 
Section 7.8 or 5.2. This message will also be issued if an 
integer constant used for the c parameter in an ENC0DE/DEC0DE 
statement is greater than 150 (Section 10.6). 

SYNTAX ERROR IN ASSIGNMENT STATEMENT 

Indicates that the form of an ASSIGN statement is 

incorrect. See Section 6.1.3. 



BC ******* SYNTAX ERROR IN OCTAL CONSTANT 



Indicates an error in the form of an octal constant, 
possibly an 8 or 9 occurs. 



B X******* SYNTAX ERROR iF BOOLEAN STATEMENT 

Indicates an error in the form of a FORTRAN Boolean 
expression. 



See Section 3.3. 
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CB******* LABELED COMMON BLOCKS EXCEED MAX OF 61 

More than 61 blocks of storage have been declared 
labeled common. See Section 5.3. 

CD******* VARIABLE DUPLICATED IN COMMON 

Indicates that a variable currently being assigned to 
a common region has been previously assigned to this 
region. See Section 5.3. 

CE******* VARIABLES ASSIGNED TO COMMON ARE IMPROPERLY EQUIVALENCED 

Indicates that two variables assigned to common blocks 
are improperly equivalenced . See Sections 5.3 and 5.4. 

CL******* SYNTAX ERROR IN CALL STATEMENT 

Indicates that the form of a CALL statement is 
incorrect. See Section 7.5. 

CM******* SYNTAX ERROR IN COMMON STATEMENT 

Indicates that the form of a C0MM0N statement is 
incorrect. See Section 5.3. 

CN******* TOO MANY CONTINUATION CARDS 

Indicates that more than 19 continuation cards appear 
in succession or that one such card appears in an 
illogical sequence. This diagnostic may appear because 
of a previous diagnostic. 

CT******* CONTINUE STATEMENT IS MISSING A STATEMENT NUMBER 

All C0NTINUE statements must have a statement number. 
See Section 6.4. 

DA******* DUPLICATE ARGUMENTS IN A FUNCTION DEFINITION STATEMENT 
See Section 7.2.1. 

DB******* ARRAY SIZE OUT OF RANGE 

An array exceeds 131,071 elements. 



DC******* SYNTAX ERROR IN A DECIMAL CONSTANT 

A FORTRAN decimal constant is incorrectly formed. 
See Section 2.3.3. 

DD******* VARIABLE BEING DIMENSIONED HAS BEEN PREVIOUSLY DIMENSIONED 

Indicates a variable has appeared in more than one 
DIMENSI0N statement, or has been dimensioned previously 
in a type or C0MM0N statement. 
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D F******* DUPLICATE FUNCTION NAME 

Indicates that the function name in the current arith- 
metic function definition statement has occurred as 
the name of a previously defined arithmetic function. 
May he caused by second use of an array variable which 
has not been dimensioned (the first use causes the 
AF diagnostic) . 

D I******* do TERMINATOR PREVIOUSLY DEFINED 

The terminator of this D0 loop has already been defined, 
i.e., the statement number terminating the D0 has 
occurred before the D0 statement. 

DJ******* INDEX OF OUTER DO REDEFINED BY INNER DO 

The index of an outer D0 loop has been used as the 
index of an inner D0 loop. 

DL******* DECLARATIVE APPEARS AFTER FIRST EXECUTABLE STATEMENT 

The declarative statement, a DIMENSI0N, C0MM0N, EQUIVA- 
LENCE or type statement, appears after the first execu- 
table statement. See Sections 5.1, 5.2 and 5.3. 

DM******* SYNTAX ERROR IN DIMENSION STATEMENT 

Indicates an error in the form of a DIMENSI0N state- 
ment. See Section 5.2. 

DN******* ILLEGAL DO TERMINATOR 

This statement cannot be used as a D0 terminator. 
Indicates the attempt to use a F0RMAT, G0 T0, arithmetic 
IF, two-branch logical IF, or another D0 statement as 
the termination statement of a D0. See Section 6.3. 

DO******* SYNTAX ERROR IN A DO STATEMENT 

Indicates an error in the form of a D0 statement, for 
example, when a previously dimensioned variable, or a zero or 
negative constant is used as an index parameter. See 6.3. 

DP******* MULTIPLY DEFINED STATEMENT NUMBER 

Indicates the current statement number has previously 
appeared in the statement number field. See Section 
2.2.2. 

DQ******* SYNTAX ERROR IN DATA STATEMENT OR APPEARANCE OF UNDIMEN- 
SIONED VARIABLE IN DATA STATEMENT 

Self-explanatory. Dimensioning information for a variable 
must precede the DATA statement in which the variable 
occurs. See Section 5.5. 
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D r******* DATA RANGE ERROR 

The dimension limits of an array are exceeded in a DATA 
statement. See Section 5.5. 

D S******* UNDEFINED STATEMENT NUMBER IN A DO LOOP 

The statement numbers in one or more D0 statements 
have not appeared in any statement number field. 

DT ******* SYNTAX ERROR IN DATA STATEMENT 

Indicates an error in the form of a DATA statement. 
See Section 5.5. 

D U******* AN ATTEMPT WAS MADE TO PRESTORE BLANK COMMON 

Data may not be entered in blank common by DATA 
statements. See Section 5.3. 

EC******* CONTRADICTION IN EQUIVALENCE STATEMENT 

Indicates that a variable currently appearing in an 
EQUIVALENCE statement cannot be equivalenced because 
of an inherent contradiction in the statement. 

EF******* END OF FILE CARD ENCOUNTERED, END CARD ASSUMED 

Indicates that an E0R (7-8-9) or E0I (6-7-8-9) card 
is detected before an END card is encountered. This 
may be caused by an incorrect deck setup (see Section 
14.1) or by a mispunch in column 1 of the card. 

EM******* SYNTAX ERROR IN INDICATED EXPONENTIATION 

Indicates the type of the base or the exponent of an 
indicated exponentiation process is improper. See 
Section 3.1.2. 



EQ******* 



EX******* 



EA******* 



EL******* 



SYNTAX ERROR IN EQUIVALENCE STATEMENT 

Indicates an error in the form of an EQUIVALENCE 
statement. See Section 5.4. 

SYNTAX ERROR IN EXPONENT 

Indicates an error in the exponent portion of an 
indicated exponentiation process. See Section 3.1.2: 

FUNCTION HAS NO ARGUMENT 

No argument was supplied in a function call. 

SYNTAX ERROR IN EXTERNAL OR F-TYPE STATEMENT 

Indicates an error in the form of an EXTERNAL state- 
ment. See Section 7.13. 
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FM******* 



FN******* 



pP****** 



FS******* 



FT******* 

The following 
Fl******* 

F2******* 
F3******* 
F4******* 
F5******* 
F6******* 
F7******* 

h q tk y% Tf% ye yz yc ?c 

F9******* 



UNRECOGNIZABLE STATEMENT 

Indicates a statement whose type cannot be determined. 
This error can be caused by mispunching a card, by an 
erroneous punch in column 6 of a card, or by a missing 
punch in column 6 of an intended continuation card. 
It also can be given if there is no PR0GRAM, SUBROUTINE 
or FUNCTI0N statement preceding a subprogram. 

NO STATEMENT NUMBER ON FORMAT STATEMENT 

Indicates that a F0RMAT statement is missing a state- 
ment number. 

DUMMY PARAMETER USED IN COMMON STATEMENT 

It is Illegal in a given subroutine for a formal 
parameter and a variable in a common block to 
have the same name, since this would imply two dif- 
ferent uses for the same name. 

ERROR IN SPECIFICATION PORTION OF FORMAT STATEMENT 

Indicates that the form of a conversion or editing 
specification in a F0RMAT statement is in error. 
See Section 9.3, 9.4, and 9.5.* 

SYNTAX ERROR IN FUNCTION TYPE STATEMENT 

Indicates an error in a FUNCTI0N statement. See 
Section 7.6. 

nine diagnostics all refer to FORMAT statements: 

LEFT AND RIGHT BRACKETS DO NOT MATCH, OR NEST IS 
DEEPER THAN FORMAT ((())) 

POINT MISSING FROM D,E,F, OR G CONVERSION 

COMMA NEEDED BETWEEN CONVERSIONS 

COUNT NEEDED BEFORE H FIELD 

ZERO, OR SIGNED, NUMBER ONLY ALLOWED BEFORE P 

H COUNT TOO BIG, OR CLOSING QUOTE OR ASTERISK MISSING 

UNRECOGNIZED CONVERSION CODE 

REPEAT COUNT NOT ALLOWED BEFORE T, ASTERISK, RIGHT 
BRACKET, QUOTE, OR COMMA 

NON-DIGIT IN FIELD WIDTH SPECIFICATION, OR ZERO 
FIELD WIDTH 



The format scan routines K0DER and KRAKER perform a further check on the 
validity of format specifications at execution time. See Section 
15.4.2. 
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GF******* FORMAT NUMBER REFERENCED BY CONTROL STATEMENT 

A G0 T0 or IF statement references a format statement 
number. 

GO******* SYNTAX ERROR IN A GO TO STATEMENT 

Indicates an error in the form of a G0 T0 statement. 
See Section 6.1. 

EC******* HOLLERITE CONSTANT TOO LONG 

IC******* CHARACTER NOT IN FORTRAN CHARACTER SET 

A character has been used which is not one of the 
characters in the FORTRAN Source Language Character 
Set (see Appendix A) . N6t all occurrences of such 
characters are detected. 
ID******* IMPROPERLY NESTED DO LOOPS 

The sequence of D0 loops is improper. Also caused by an 
error in the construction of a D0 loop or of an implied 
D0 loop in I/O statements. See Sections St 3. 2 and 9.1.1. 

IF******* SYNTAX ERBOR IN AN IF STATEMENT 

Indicates an error in the form of an IF statement. 
See Section 6.2. 

IL******* SYNTAX ERROR IN AN INDEXED LIST OF I/O STATEMENT 

Indicates an error in the form of an indexed list of 
the current input/output statement. See Section 9.1. 

IN******* ILLEGAL FUNCTION NAME 

The name of a function reference starts with a numeric 
character. See Section 7.7. 

10******* ILLEGAL I/O DESIGNATOR 

An I/O designator has a variable name of more than 6 
characters or a numeric value of more than 99. 

IS******* ILLEGAL USE OF PROGRAM SUBROUTINE OR FUNCTION NAME 

It is illegal to use the name given to a subroutine or 
a function as an array name within the subroutine or 
function definition. A subroutine name may not even 
be used as a simple variable name within the subroutine. 

IT******* ILLEGAL TRANSFER TO DO TERMINATOR 

A transfer to a D0 terminator is not allowed if no 
transfer to it appears before it appears in the physical 
deck sequence. This can be caused by illegally trans- 
ferring in a D0 loop. See Section 6.3.3. 
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^N******* NAMELIST ERROR 

Indicates that the form of a NAMELIST statement is 

in error or the usage of a NAMELIST name is incorrect. 

See Section 9.9. 

LP ******* EXPONENTIATION TO A LOGICAL POWER 
See Section 3.1.2. 

LS ******* SYNTAX ERROR IN INPUT/ OUTPUT LIST 

Indicates an error in the form of an input/output 
list. See Section 9.1. 

LU******* NON-LOGICAL EXPRESSION USED IN A LOGICAL CONTEXT 

MA******* DUMMY PARAMETER MAY NOT APPEAR IN EQUIVALENCE STATEMENT 

Indicates that a formal argument of the subroutine or 
function being compiled has been used in an EQUIVALENCE 
statement. See Section 5.4 and 7.2.1. 

MO******* MEMORY OVERFLOW, FIELD LENGTH TOO SHORT 

Indicates that the memory field, as specified on the Job 
identification statement or by an RFL. statement is too shurt 
for compilation. 
Ms******* UNDEFINED STATEMENT NUMBER 

Indicates that references have been made to statement 
numbers which did not appear anywhere in the statement 
label field of a line. May appear when the terminal 
statement of a DO loop is referenced from outside the 
loop. The missing statement numbers are listed above 
this diagnostic. 

NC ******* SUBROUTINE OR FUNCTION NAME CONFLICTS WITH A PRIOR USAGE 
This diagnostic is usually the result of a subscripted 
variable not being dimensioned. 

NL ******* NAMELIST NAME NOT UNIQUE 

NM******* IMPROPER HEADER CARD 

Indicates that a PR0GRAM, SUBR0UTINE, or FUNCTI0N card 
is in error. This diagnostic may also be caused by a 
missing END statement in a previous subprogram. 

NO******* NO OBJECT CODE GENERATED 

The source program has generated no object code. This 
error will occur if a vacuous record is input to the 
compiler as when one too many 7-8-9 cards appear after 
the control cards or an EOF (7-8-9/17) is used in place 
of an EOR (7-8-9) . 

NP******* NO PATH TO THIS STATEMENT 

The logic of the program is arranged so that this 
statment can never be executed. 
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^y******* VARIABLY DIMENSIONED ARRAY IN NAMELIST 

A variably dimensioned array has been used in a 
NAMELIST statement, which is illegal. 

OD******* REFERENCE TO AN ARRAY BEFORE IT IS DIMENSIONED 

Indicates that a reference to an array was made prior 
to the appearance of the array in a DIMENSI0N state- 
ment. See Section 5.2. 

PM******* FUNCTION PARAMETER MODE INCONSISTENCY 

Indicates that the parameters in an arithmetic statement 
function reference do not agree in mode with the formal 
parameters of the statement function. See Section 7.8. 

PN******* UNBALANCED PARENTHESIS 

Indicates an unequal number of left and right paren- 
theses in a statement. May be caused by punching 
past column 72. 

PT******* SYNTAX ERROR IN AN ENTRY STATEMENT 

The ENTRY statement being processed is labeled, has 
more than one name, is in a D0 loop, has a name starting 
with a number, or has a formal argument list. See 
Section 7.12. 

RN******* SYNTAX ERROR IN A RETURN STATEMENT 

Indicates an error in the form of a RETURN statement. 
See Section 6.7. 

r#******* ILLEGAL USE OF RESERVED NAME 
See Section 15.6.1 

SB******* ERROR IN AN ARRAY SUBSCRIPT 

Indicates an error in the form of a subscript of an 
array reference currently being processed. Can also 
be caused by using more subscripts in the array 
reference than are indicated in the dimensioning 
information for the array. See Sections 2.5 and 2.6. 

SE******* SYNTAX ERROR IN SENSE STATEMENT 

Statements which generate this diagnostic are using an 
obsolete statement form. 

SF ******* FIELD LENGTH OF ROUTINE BEING COMPILED EXCEEDS THE 
SPECIFIED FIELD LENGTH 

A program takes more memory than is specified in the 
field length parameter of the Job identification state- 
ment. See CALIDOSCOPE Control Statements. 
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SM******* SYNTAX ERROR IN STATEMENT NUMBER 

Indicates an error in the form of the statement number 
field. See Section 2.2.2. 



SN ******* ILLEGAL CHARACTER IN STATEMENT NUMBER USAGE 

In a Fortran statement which may contain statement 
numbers, a statement number is incorrectly stated or 
positioned in the statement. 

SY******* SYSTEM ERROR IN FORTRAN COMPILER 

Show these to the programming consultant! 

TM******* SUBROUTINE HAS MORE THAN 60 ARGUMENTS 

Indicates that a subroutine reference has more than 60 
arguments or that the subprogram being compiled has 
more than 60 parameters . 

XN******* PROGRAM HAS MORE THAN 50 ARGUMENTS 

Indicates that the PR0GRAM card has more than 50 
arguments . 

XT******* VARIABLE GIVEN CONFLICTING TYPES 

A variable has appeared in more than one type state- 
ment. See Section 5.1. 

XY******* SYNTAX ERROR IN A TYPE STATEMENT 

Indicates an error in the form of a type statement. 
See Section 5.1. 

UA******* REFERENCE MADE TO AN AS YET UNDIMENSIONED ARRAY 

Indicates reference was made to an array which has not 
previously appeared in a DIMENSI0N statement. 

UE******* LOGICAL UNIT NUMBER IS NOT AN INTEGER 

The logical unit number in an I/O statement must be a 
constant or simple variable of integer type. See the 
introduction to Uiapter 10. 
VC******* VARIABLE NAME CONFLICTS WITH A PRIOR USAGE 

Indicates that a variable name appears which conflicts 
with some prior usage, where, for example, the prior 
usage was a mispunched subscripted variable mistaken 
as a function. 

VD******* ARRAY WHOSE DIMENSIONS ARE ARGUMENTS TO THE SUBROUTINE 
OR FUNCTION HAS BEEN MISUSED 

Indicates improper use of an array with variable 
dimensions. See Section 7.11. 
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Xf******* SYNTAX ERROR IN THE EXPRESSION BEING PROCESSED 

Indicates an error in the form of the expression cur- 
rently being processed. An error in the form of a 
complex constant is also indicated by this diagnostic 
See Chapter 3. 

ZY******* SYSTEM ERROR-UNKNOWN TWO LETTER CODE 

See the Computer Center programming consultant. 



This list of diagnostic messages may be changed in 

future versions of the CAL RUN Fortran Compiler. The 

Computer Center programming consultant should be seen 
if the cause of a diagnostic cannot be found. 
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15.4.1.2 Errors Undetected by Compiler 



Not all of the errors that may be in a source language 
program are diagnosed by the RUN compiler. These errors may 
result in execution time error messages (see 15.4.2) 
or in incorrect answers to the problem being programmed. 

The compiler can only check the correctness of the syntax 
of a statement or group of statements, not their intent or 
meaning. (As a parallel, an English language sentence may 
be structurally correct but convey no meaning.) Thus a 
programmer must carefully examine his program to be sure 
that it conveys the meaning he intended, i.e., solves the 
given problem. 

One way to check for meaning is to follow the program through 
with a sample set of data, performing by hand the operations 
prescribed by each program statement. This procedure is com- 
monly called "dry running" the program. 

The CAL RUN Fortran compiler itself does not completely check 
the program for correct syntax. One particular area where 
few checks are made is program flow, i.e., can the program 
logically proceed at each branch statement (Chapter 6) to 
the sections of the program indicated on the statements? 
Thus no diagnostics are given if there are transfers to state- 
ments within a D0 loop from outside the loop. Each branch 
statement should be checked by the programmer to be sure that 
-iii ->""dicated transfers in control are valid. In addition, in 
may not detect instances where a subroutine (or function) name 
is used incorrectly in the subroutine (or function) definition. 

The compiler does not check the use of subscripted variables 
very carefully. No check is made either at compilation time 
or at execution- time to insure that the referenced element 
of an array is within the bounds of the array as allocated 
by the DIMENSI0N statement. Exceeding the bounds of an array 
is likely to destroy the contents of locations stored after 
it and cause other errors, such as ARITH errors (see Section 15, 
4.4). Also the compiler does not give any diagnostics if 
the number of subscripts used with an array name is less than 
the number indicated by the DIMENSI0N statement. 

One inherent feature of the language that may cause undiagnosed 
errors is the ability to have a mixed-mode arithmetic expres- 
sion (Section 3.1.2). Thus, for example, forgetting to type a 
variable as C0MPLEX could result in an erroneous calculation 
of a complex expression. Further difficulties may arise when 
real and integer variables and constants are mixed, because 
integer arithmetic produces truncated results. A careful exam- 
ination o£.,the program .^shQuld,- he. made to verify that an arith- 
metic expression is evaluated as intended and that the types 
of all variables are those intended. 

IMPORTANT: "Dry running" a program not only aids finding 

undetected errors, but facilitates the debugging phase of 

a program. Flow charting a program before coding aids 

spotting bug-prone logic. 
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15.4.2 RUN Fortran Execution Time Error Mesages 

The Fortran library subprograms test for many of the more common 
cases of incorrect arguments and indicate these errors to the pro- 
grammer by a standard error printout. The form of the listing on 
the fileset 0UTPUT is: ' - '■ • 

Message indicating the nature of the error 

ERROR NUMBER n DETECTED BY LSUB AT y 

CALLED FROM SUBn AT Yn=m IN SUBn 

CALLED FROM SUBn-1 AT Yn-l=m IN SUB 

Trace information 

CALLED FROM SUB1 AT Yl = m IN SUB1 

CALLED FROM main AT Ym = m IN MAIN 

o 

where n is the error number associated with the detected error; LSUB 

is the library subprogram in which the error was detected at address 

y. SUB1, . . . ,SUBn are subprogram names and main is the name of the 

main program. The Yl,...,Yn,Ym are absolute (octal) addresses in the 

program, and the m. are the corresponding relative addresses within the 

subprogram. 1 

On those errors which are fatal, execution is halted and an error 
skip of control statements is initiated (see CALIDOSCOPE Control 
Statements ) . Also the message, 

FATAL ERROR N 

where N is the error number, is placed in the Job Log. 

The trace information shows (in reverse order) the way in which pro- 
gram control was transferred from the main program to subprogram SUB1 
to subprogram SUB2 to ... to subprogram SUBn which referenced LSUB. 
m',m , ,,.,m indicate the place in each subprogram where the subpro- 
gram above 'it was CALLed or referenced. This information is useful 
to the programmer in establishing how the error occurred. 

Example : The following error printout occurred in the sample output 
shown in Chapter 14 as compiled by the RUN Fortran compiler. 

NEGATIVE ARGUMENT 

ERROR NUMBER 39 DETECTED BY SQRT AT ADDRESS 007323 

CALLED FROM WORK . AT 003251=000010 IN WORK 

CALLED FROM 0VERFL AT 000706=000050 IN OVERFL 

Here the main program OVERFL called subroutine WORK which used the 
SQRT function with a negative argument. If WORK has been called 
from several different places in OVERFL the address given with OVERFL 
would locate the CALL used when the error occurred. The addresses 
given in the error printout are first the absolute then the rela- 
tive. 
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When a program terminates normally or with a library detected 
error (not on an ARITHMETIC ERROR, LIMIT EXCEEDED, etc.. exit), 
an error summary is provided, and each error number is given 
with the number of times it occurred in the job. Those error 
numbers which did not occur in the job are not listed. 

FORTRAN ERROR MESSAGES AND ASSOCIATED NUMBERS 

Listed below are the error conditions checked for by various Fortran 
library subprograms, the standard recovery action (either the value 
returned, or the word "fatal" for fatal errors), and the associated 
error number. 

The symbols INF and IND denote the infinite and indefinite forms of 
a floating-point number described in Appendix A. 

When an error condition is preceded by "also" it indicates that the 
subprogram in question calls on a subordinate library subprogram, 
giving it the arguments indicated. Therefore, the subordinate sub- 
program may detect some errors of its own and report them under its 
own error number. 

Boutin e Co M i ii 2 n Standard Error 

--— ~ Recover y_ ZHIUl^Il 

ACGCEE This routine is only called Fatal 1 

nnnr ^tortinr Of R COITlDlltecl 

^ r ~x- ~~ --i. 

or assigned SO TO error. 



ACOS(H) P = INF or'F = IND or 

abs (F) .GT. 1.0 

AIOG(F) B = INF or E = IND or 

B. « L T . 
E = 

ALOG 10(E) F = INF or E = IND or 

E.LT.O 
E = 

ASIN(F) F = INF or P = IND or 

dUS (it) .toi. I • u 

ATAN(E) E = INF or E = IND 

ATAN2 (R1, (E1 or E2) = (INF cr IND) 

R2) F-1 = E2 = 

CABS(Z) (real (Z) or imag (Z) ) = 

(INF or IND) 

CEAIEX:Z**I (real (Z) or imag (Z) ) = ( + IND,«-IND) 9 

(INF or IND) 
Z=(0 r 0) and I.LF.C ( + IND, + IND) 



+ IND 


I 


+ TND 




+ 7ND 


■3 


-INF 




+ IND 


U 


- T V,"P 




+ TND 


c 


+ INB 


6 


+ JND 


1 


+ IND 




+ IND 


p 
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Standard Error 

Routine Condition Recovery Number 

CCOS (Z) (real (Z) or imag (Z) ) = (+IND, +INB) 10 

(INF or IND) also: COS ( real 
(Z)) and EXP (imag (Z) ) and 
imag (Z) .LT. -675.82 

CEXP(Z) real (Z) or imag (Z)) = ( + IND,+IND) 11 

(INF or IND) ; also: SIN 
(imag (Z) ) and EXP (real 
(Z)) 

CLOG(Z) (real (Z) or imag (Z) ) = ( + IND,+IND) 12 

(INF or IND) ; also: ALOG 
(CAES(Z)) and ATAN2 (imag 
(Z) , real (Z) ) 

COS(P) R = INF or IND or + TND 13 

abs (P) .GT. 2.2E1U 

CSIN(Z) (real (Z) or imag (Z) ) = ( + IND, +IND) 1U 

(INF or IND) ALSO: SIN 
(real (Z) ) and FXP (imag 
(Z)) and imag (Z) .LT. 
-675. 82 

CSQRT(Z) (real (Z) or imag (Z) ) = (*IND,+INP) 15 

(INF or IND) 

DABS (D) D = INF + INF 16 

D = IND +IND 

DA TAN (D) D = INF or D = IND +IND 17 

DATAN2(D1, (D 1 or D2) = (INF or IND) +IND 18 

D2) D1=D2=0 +IND 

DEADEX: (D 1 or D2) = (INF or IND) +TND 19 

D1**D2 D1=0 and D2 .LE. C +IND 

D1 .LT. +IND 

DEAIEX: D1 = INF or D1 = IND +IND 20 

D1**I2 D1 = and I2.LE.0 +TND 

DBAFEX: (D1 or E2) = (INF or IND) +TND 21 

D1**R2 D1 = and R2 .LE. +IND 

D1 .LT. 

DCOS (D) D = INF or D= IND or +IND 22 

abs (D) .GT. 2.2E14 

DEXP (D) D = INF or D = IND +IND 23 

D.GT. 741.67 +INF 
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Routine 
DLOG(D) 



PLOG10(: 



Condition 








Standard 
Recovery 


Error 
Number 


D = INF or 
P '.LT. 
D = 


D 


= IND or 




♦ IND 

-INF 


24 


D = INF or 
D .LT. 
D = 


D 


= IND or 




♦ IND 
-INF 


25 


(D1 or D2) 

D2 = 
D1/D2 .GE. 


= 


(INF or 
>**96 


IND) 


♦ IND 

♦ IND 
+ TND 


26 



DMQD(D1,D2) 



DSIGN(D1,D2) D1 = IND or D2 = (0 or INF 
or IND) 
D1 = INF 



♦ TND 

INF with sian 
of D2 



DSIN (D) 


D = INF or D = IND or 
abs (D) .GT. 2. 2E14 


♦ IND 


BSQRT (D) 


D = INF or D = IND or 
P .LT. 


♦ TND 


FXP (?) 


P = INF or P = IND 


♦ TND 




F .GT. 7U 1 . 67 


♦ INF 


IBAIEX: 


11 = and 12 .LF. 





11**12 


11**12 .GE. 2**48 





IDINT(D) 


D == «-INF or D = IND or 
D .GE. 2**59 


2**59- i 




D = -INF or D .LF. -2**59 


-j _2**59 


FEADEX: 


(P1 or D2) = (INF or IND) 


♦ TND 


?1**D2 


F1 = and D2 .LE. G 
F1 .LT. 


♦ IND 


EBAIEX: 


E1 = INF or P1 = IND 


♦ IND 


F1**I2 


F1 = and 12 .LE. 
P1**I2 = INF 


♦ IND 


F.BAFEX: 


(R1 or F2) = (INF or IND) 


♦ IND 


E1**F2 


P1 = and P2 .LE. 


♦ IND 




R1 .LT. 


♦ TND 



2 C 



"3 



21 



^2 



34 



^R 



SIN(P) 



SLITE(I) 

SLITET 
(I1 f I2) 



E = INF or F = IND or 
abs (P) .ST. 2. 2E14 

I .GT. 6 or I .LT. 

II .GT. 6 or II .LE. 



♦ IND 



36 



PFOCEFD 37 
T2 =2 3^ 



15-23 



Standard Error 

Routine Condition Recovery Number 

SQRT(P) R = INF or R = IND or +TND 39 

R .LT. 

SSWTCH(I1, 11 .GT. 6 or 11 .LE. I? = 2 40 

12) 

TAN(R) R = INF or R = IND or 4-t'NP 41 

abs (R) ..GT. 8.4E14 

TANH(R) R = INF or R = IND + IND 42 

Unused 4 3 

The following routines whose names are followed by a colon and 
a sample statement or expression are not explicitly called for 
by the programmer in his program. They are called for when the 
indicated statement is used in the program. Currently, all 
errors detected by these subprograms, except as noted, are fatal 
errors causing termination of the job. 

ftrm+- "i n <=> rnnditinn Frrnr 



IOCHEK IF(ONIT r i) should only be used 44 NF 

IF (UNIT, i) on a BUFFER I/O file. The file 

name given in the message is = i. 

LENGTH: Status of a BUFFER I/O file must 45 NF 

LENGTH (i) be checked by IF(UNIT r I) 

IFENDF: in the instance where an error 

IF(EOR,I) would occur if no check 

IOCHEC: were made. 

IF(IOCHECK r I) 

Unused 46 

SETPRU The physical record unit size **7 NF 

should not be changed since the current 
process is not completed. However the PPU 
size is changed as requested. 

SETPRU The physical record unit size U8 NF 

cannot be changed on this type of device. 
Returns without changing the PRU size. 

INPUTN: NAMELIST error: 49 NF 

READ(I r X) precision lost in convertina 

integer constant. NAMELIST data 
terminated by 7-8-9 or 6-7-8-9 card, not 
$. Too few constants for unsubscripted 
array. 
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Routine 



Condition 



Error 



OVERLAY 

SYSTEMP 
SYSTEM? 



Improper use of OVFFLAY 
User program detected fatal error. 



50 F 

51 r 



User program detected non-fatal error. Execution is ^2 N*" 
allowed to continue but results should be suspect. 



CKFLAG. 



CKFLAG, 



CKFLAG. 



CKFLAG. 



BUFFEI: 
BUFFER IN 

CKFLAG, 



BUFFEO: 
BUFFER OUT 

INPUTN: 
READ (I,X) 



SFTPRU 

MEMORY 
SIO$ 



Parity error on previous read ^ 

not checked for. IF (IOCH^CK,!) N1 ,N2 
should be used to check for parity errors 
(except on buffer I/O files). N1 is the 
return indicating a parity error, N2 is 
the return indicating no error. 



Number of elements in the list for 
the previous unformatted (binary) read was 
more than were contained in the binary 
record and the LENGTH function was not used to 
check for this condition. 



5H 



An end-of-file was encountered on 

the last read on this file and neither 

IF (EOF, I) nor IF (UNIT, II were used to check for this 

condition. 



55 F 



A read was attempted after a write, 
without an intervening BACKSPACE 
REWIND. This is not allowed. 

Starting address greater than ter- 
minal address. 



or 



^6 



57 v 



An I/O operation was attempted on 58 

a buffered I/O file without checking its 
status first with an IF(UNIT,I) . 



Starting address greater than 
terminal address minus 1. 

NAMFLIST name not found. 
Wrong type constant. 
Incorrect subscript. 
Too many constants. 
( f $, or = expected. 

The PRU size requested exceeds the 
maximum allowed for magnetic tape. 

Illegal request for memory. 



59 F 



6 1 



61 



62 F 



Physical record too big, i.e., €~ F 

longer than 512 words if binarv or 128C 
characters if coded (unless SFTPP.TJ has 
been called) . 
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Routine Condition Error 

GETBA Undefined file. There is no buffer 6U F 
defined for the file being accessed; i.e., 
the fileset name appearing in the 
diagnostic was not specified in the 
■■- 'P'SOGR'Ah " statement list. See Section 7.4. ' 
If the file is OUTPUT, the message NO 
OUTPUT FILE FOUND appears in the job log. 
May also indicate that values have been 
improperly assigned to a variable tape 
number, or that lower core has been 
destroyed by the program. 

Unused 65 

INPUTS: Attempt was made to transfer more 66 F 

DECODE than 150 characters per record on 
DECODE processing. 

Unused 67 

KEAKSP/K0DE5: Illegal letter used as format 6P F 

Used in PCD specification. 

I/O CON- Improper parenthesis nesting in 

VERSION* format specification. 

Format exceeds maximum record length 

currently set on input or output. 

Field width specified as zero. 

Field width specified as less than or 

egual to the specified fraction width 

List was used with an I/O statement 73 F 

with only Hollerith specifications in 

the format. 

Unused ^ tx 

Unused 75 

Unused 76 

FBPUT/FBGET Wrong number of arguments. 77 F 

KSAKER: USED Illegal character in data item in record 78 F 

in BCD input being read. 

Conversion* Data converted is too large. 79 F 

INPUTB: An attempt has been made to read an 80 F 
Blocking unblocked fileset as if blocked or 
BACKSP blocking control word mismatch, or - incorrect 
trailing blocking control word. 



69 


F 


70 


F 


71 


F 


72 


F 



* See footnote on next page 
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Routine 



Condition 



Error 



IF(IEOI) 
INPUTB 



OUTPTS: 
ENCODF 



FBPUT 



F 



End of Information on previous read. P1 

Machine, system, disk or tape checksum ^ 82 
error. It is important to show the job 
output to the Computer Center Consultant 
in order to enable the Systems Staff to 
pin down the machine failure. The parity 
error flaa is set and the blocking control 
word is checked. If it is all right, the 
program continues. 

rr,L _ C ~±-i ** ^rsAa, TC Tint flllnWPfi fOT the 8? F 

device; the file is closed or not allowed 
to be written on or read follows a write. 

An unexpected error status has been 84 F 
detected in the FFT. Possible system 
error. See the Computer Center 
Consultant . 



Attempt to transfer more than 150 
characters per record on FNCODE 
processing. 

IRECL greater than blocksize. 



KODEF: Used Attempt to output a single precision 
in BCD output variable under "D" format. 
Conversion* 



SYS.UEX 



Attempt to reference a missing subprogram. 



85 * 

86 F 

87 F 

93 F 



* The message 
subroutines K 
followed by su 
FOEMAT statem 
statement will 
position in 
In the case of 
the data dec 
error was dete 
the spot at wh 



indicating 
ODEF (for 
pplemental 
ent numbe 

be printe 
the FORMAT 

input dat 
k and on 
cted will 
ich the er 



the nature of an error found by the 
matted output) and KEAKFP (input) is 

messages which localize the error. "he 
r and up to one line of the F0PM*7 
d with an up arrow to indicate the 

statement where the error was detected, 
a errors, the position of the card in 
e line of the record (card) in which the 
be printed with an up arrow pointing to 
ror was found. 
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15.4.3 Operating System Error Messages 

The operating system produces messages in the Job Log to warn of a 
possible error, to indicate a definite error, and/ or to report hard- 
ware malfunctions. The exact messages depend on the version of the 
operating system. Here, the general form of CALIDOSCOPE error mes- 
sages is explained and a few of the more common examples are discussed 
briefly. Section 15.4.4 discusses arithmetic errors, which are very 
common errors that also generate messages in the Job Log. An example 
of an arithmetic error message occurs in the sample program in 14.2 
and is discussed in 15.5. 

All system error messages are printed on the Job Log and are usually 
(the exceptions are discussed below) prefixed with the time and a 
character pair, the first of which indicates the severity of the error, 

I: indicates an informational message. Sometimes such mes- 
sages are associated with a fatal or warning error and 
give additional information; other times they pertain to 
an error which was automatically recovered by the system; 

-n. ... . .i j _ _ J _ £-j._n «„~.„-~ *-u .-.+- (h. -mo 0,0 -i-Vici -nr»V> i-n Ko ahmrtf*c\ . 

E ; .LIlU-LCctLeti H. 1.CH-CLJ- Cl.i-Ul. luol L.o.u.o«_-_> >-">- J~" «-~ *- — —* 

W: is a warning message which indicates that a possible error 
was detected, but processing continues. The cause of the 
message should be investigated. 

Approximate text of some common messages 



These three messages indicate that the job tried to exceed the indicated 
limit as specified on the job identification statement (job card). It 
is well to ascertain that the indicated limit is not being exceeded 
because of an error in the program before resubmitting the job with 
a higher limit, aaaaaa indicates an octal address. 

hh.mm.ss F: CENTRAL PROCESSOR TIME LIMIT EXCEEDED AT ADDRESS aaaaaa 

hh.mm.ss F: PRINT LIMIT EXCEEDED 

hh.mm.ss I:FET ADDRESS = aaaaaa, FILESET = name 



hh_.mm.ss F: PUNCH LIMIT EXCEEDED 
, hh.mm.ss I: \ FET ADDRESS = aaaaaa, FILESET = name 

The following messages are printed by HYDRA, the program which supervises 
reading jobs into the computer. They are the most common messages 
which don't have a prefix containing the time, etc. These errors 
prevent the job from being run: 
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BAD JOB NUMBER 

indicates that the job number specified is out of funds or was never 
funded at all; or the two check characters necessary to use the indi- 
cated number were not specified correctly. 

BAD JOB CARD 

covers a variety of sins: an illegal character occurs in ' the statement, 
such as an 8 or 9 in an octal number field; a parameter has been spe- 
cified in excess of the maximum allowed for that parameters on this 
job number; the job is an S job but specifies a parameter which is 
too large for S. 

CHECKSUM ERROR RECORD n CARD m 

indicates that binary card m in record n* has been punched improperly 
or read improperly. 

SERIAL CHK RECORD n CARD m 
indicates that binary card m in record n* is out of order. 



The' following 1 possible errors are reported but the job is allowed tc run; 

HOLLERITH CHECK RECORD n CARD m 
indicates that card m in record n* has an illegal combination of punches 
for a Hollerith card. The job is allowed to execute with blank (s) sub- 
stituted for the character (s) in questions 

The message 

MODE CHANGE RECORD n CARD m 
means that coth Hollerith and binary cards occurred in the same record. 



n and m are decimal. The control statement record is counted as record 0. 
Cards within a record are numbered starting with 1. If you cannot analyze 
these problems, see the programming consultant. Checksum errors which 
disappear when a job is simply resubmitted should be reported to the con- 
sultant in any case. 
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15.4.4 Arithmetic Errors 

Computation is halted (error exit) when the internal circuitry of 
the 6400 detects certain "arithmetic" errors. A dump is then 
initiated and a message of the form: 

F: ARITHMETIC ERROR MODE X AT ADDRESS Y 

is placed in the Job Log. X is the type Cor mode) of error which 
occurred and Y is the absolute address (usually plus one) (in octal) 
of the instruction word causing the error. Several lines of I: 
messagesmay follow the F: message giving some explanatory information 
and the locations of some values which might have caused the error. 

A dump of the 6400's registers is automatic (i.e., no DMP statement 
is needed) with an arithmetic error. The system communication area, 
showing the names of the filesets and the locations of the FETs for 
the filesets, is given, followed by about 100B locations on each side 
of the offending instruction. An error skip of control statements 
(see CALIDOSCOPE Control Statements) is initiated after an arithmetic 
error. 

The sample job output in Section 14.2 shows an example of an arith- 
metic error. Section 15.5 discusses the error from the sample job. 

The types of errors detected are: 



MODE 



An ARITHMETIC ERROR with a MODE of zero may be 
generated by an erroneous transfer to location 
zero, e.g., the 6400's internal circuitry has 
found no error. This wild transfer can be caused 
by the program storing data where instructions 
should be (e.g., subscripts of a variable are 
incorrect or labelled COMMON exceeded) or by 
having the actual parameters to a subprogram not 
agree with their intended use in the subprogram. 
COMPASS programmers note that a MODE ARITHMETIC 
error can also be generated by an attempt to 
execute an illegal instruction or having a PS 
instruction in the lower 15 bits of a word. 



MODE 1 



Address out of bounds. The instruction has tried 
to reference a location not contained within a 
job's field length. In the dump one of the address 
registers will contain an address greater than the 
program length, which is shown in the FL register. 
This error can occur when an operand is being 
fetched for a calculation or stored as a result of 
a calculation. In a Fortran program, subscripts of 
an array which exceed the dimensions of the array 
can cause this error. 



15-30 



MODE 2 



MODE 4 



MODE 6 



In this case the address given in the Job Log message 
is around 400000B and a reference appears under 
"UNSATISFIED EXTERNALS" at the end of the load map. 

Operand out of range. The instruction has tried to 
use an infinite operand in a floating-point operation. 
In the dump, at least one of the working registers 

will contain an infinite form (37770... or 4000 0) 

An infinite operand is usually created by a division 
by zero in a Fortran program. However only its sub- 
sequent use in another calculation causes this error. 
Refer to Appendix A for a further explanation and for 
the form of the infinite operand. 

Indefinite operand. The instruction has tried to 
use an indefinite operand in a floating-point opera- 
tion. In the dump, at least one of the working regis- 
ters will contain an indefinite form (17770. . .0. or 
60000.... 0). Because the loader sets unused cells 
in memory to indefinite values (see p. 14.12), the 
most common source of indefinite operands is refer- 
encing variables which have not been set. An array 
reference using a wild index is a frequent cause of 
using such an 'undefined' variable. An indefinite 
operand is generated either when an error is detected 
in one of the library mathematical functions (15.4.2) 
or when zero is divided by zero. However, only the 

i x. . .,-. ~ A -~ n««j-V.Q-i- /-o1r<ii*lq1--i r\r\ pailQPfi tn "1 fi 

bUObt;({UeilL use j-Ll ailutuci \_d.-L»-«^-i-a.«-.-i-^"- —"• 

error. Refer to Appendix A for a further explana- 
tion and the form of the indefinite operand. 

The instruction has tried to use both infinite and 
indefinite operands in a floating-point operation. 
See Modes 2 and 4 above. 



15.5 Debugging and Memory Dump Interpretation 

Debugging is a term used to describe the process of trying to figure 
out why a program did not do what it was supposed to do. It some- 
times happens that an error cannot be found simply by inspecting the 
program or its normal output and in such cases one may be forced to 
seek clues in a memory dump. 

Dumps of memory (i.e., a printout of the contents of locations in mem- 
ory are taken when a DMP statement (see CAL IPOS COPE Control Statements ) 
is encountered in the control statement record or when a fatal error is 
detected by the operating system. Section 15.5.1 describes the infor- 
mation given in a dump, using the dump produced by the sample program 
of Chapter 14 for examples. 
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Two problems are commonly associated with, debugging and memory 
dumps. One is to identify the variable or code associated with 
an absolute address given in a dump or error message. The other 
is the inverse problem of finding the absolute address of some 
variable or code so that it can be inspected in a dump. These 
are discussed in sections 15.5.2 and 15.5.3. 



15.5.1 Dump Format 



A dump shows the contents of registers and memory words in octal . Each 
octal digit represents 3 bits of the binary number contained in a word. 
The correspondence between the octal digit and binary number is as 
follows: 

Octal Binary 0ctal Binary 






000 


1 


001 


2 


010 


3 


011 



4 


100 


5 


101 


6 


110 


7 


111 



The first line of the dump gives the time and circumstances of the dump. 
The second line gives the values of the location count (P = 000000), the 
reference address* (RA = 101100), the field length (FL = 010700), the 
exit mode (EM = 07), the reference address for ECS (ECS RA = 01053000), 
the field length for ECS (ECS FL = 00000000), and the monitor address*' 
(MA = 003567). 

The next 8 lines give the contents of the machine registers and related 
information in one of the forms: 

X = Y or C(X) = Y , 

where X is the name of a register (X0-X7, A0-A7, or B0-B7) and Y 
is either the contents of that register in the first form or the con- 
tents of the cell specified by the address contained in the register 
in the second form. For example, if Al = 005517 appears followed by 
C(A1) = 00000 00000 00000 02053, then the contents of address 5517 is 
2053b. CCA1) - ///// ///// ///// ///// would indicate that the 
address in Al points outside the job's memory field. 

The next 2 lines give the contents of the system comaunication registers. 

Following these registers, the contents of memory locations are 
given. The dump of memory is in the form of five columns. The 
first column comprises 6 octal digits which specify the absolute 
location (in the user's portion of memory) of the word whose con- 
tents are shown next. The contents of 4 consecutive memory loca- 
tions then follow in columns 2-5. Each location is represented by 20 
octal digits broken up by an intervening space into four groups of 
five digits each. For example, the sample dump shows that location 
64 contains 14071700000000000000B, location 65 contains 10647B, etc. 
When consecutive locations contain the same value, a line of the fol- 
lowing form is printed: 



The reference address is the hardware location of the beginning of the mem- 
ory field. It is not relevant to the user's program but may be significant 
in checking for possible machine failure. 

The monitor address is a pointer internal to the generating system and is 
also not relevant to the user's program. 
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WORDS Nl TO N2 ALL CONTAIN N3 
Thus the line before the one giving the contents of location 64 in 
the sample dump tells one that locations 10 through 63, inclusive, are 
all zero. 

The first few words in the system communication area may be useful to 
the programmer. Starting in location 2 are the fileset names for the 
filesets in the order that they appear in the PROGRAM statement. The 
high order 42 bits (first 14 octal digits of each word) contain the 
name of the fileset in 6400 internal BCD code; the low order 18 bits 
(last 6 octal digits) contain the address of the Fileset Environment 
Table (FET) used for that fileset. Thus in the sample output these 
cells are shown following the label 'SYSTEM COMMUNICATION AREA' . Cell 
2 contains the name INPUT (1116202524B) and the Fileset Environment 
Table (FET) is located at 1031B; cell 3 contains OUTPUT (172524202524B) , 
and its FET is at 2053B; cells 4 contains TAPE5 (2401200540B) , and 
since it is equivalenced to INPUT, its FET is also 1031 B. 

The contents of other locations in a dump can be interpreted by knowing 
the octal forms of each type of variable or constant used in the Fortran 
language. These octal forms as well as methods or tables for their con- 
version to decimal or alphanumeric forms are given in Appendix A. 

15.5.2 Identifying Code or Variables Starting from Absolute Addresses 

The addresses given in memory dumps and most addresses given in diagnostic 
messages are absolute. That is, the user program's memory is considered 
as one long block of cells numbered from to the field length less one 

__J j. i _1 1.,4-~ ^JJ-v/^^c •m^-.v-Qlir i/lonf ifioc nno nf t-hpfiP PpI 1 fi. On the 
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other hand, the addresses given on compiler listings are relative to the 
beginning of the program being compiled and are referred to here as 
relative locations. To convert an absolute address AA to a relative 
location RL involves two steps: 

1. Identify the subprogram containing thesbsolute address and deter- 
mine its load address LA. To do this compare AA with the loading 
addresses of the subprograms indicated on the load map. The 
largest load address which does not exceed AA is LA and the cor- 
responding subprogram contains AA. 

2. RL = AA - LA. Remember that the numbers are octal. RL may now 
be used to identify a variable or code in the compiler listing in 
the appropriate subprogram. 

Example : 

In the sample program shown in Chapter 14, the following arithmetic 
error occurred: 

F: ARITHMETIC ERROR MODE 2 AT ADDRESS 003250 

I: INFINITE OPERAND USED 

I: OPERAND MAY HAVE RESULTED FROM A DIVISION BY ZERO 
I: REFERENCE TO WORD 001026 WHOSE VALUE IS INFINITE 
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We will now identify the statement associated with address 3250. 
Because the address given in the error message is one greater than 
the address of the offending instruction, we take 3247 as AA. From 
the load map, we identify WORK, whose LA is 3241, as the subprogram 
containing the instruction. Now RL = 3247 - 3241 = 6 and inspection 
of the compiler listing for WORK identifies the statement associated 
with the arithmetic error: 

X2 = 2.*X1 

which indicates fairly strongly that XI has somehow become out-of -range. 
It should be noted that because there can be up to 4 instructions in 
one computer word, it sometimes happens that instructions from two 
adjacent statements 'share' the same word, in which case there is an 
ambiguity as to the identification of the statement. 

Example: 

Now we identify the variable associated with address 001026 given in 
the error message above. With AA =1026 we inspect the load map and 
find that OVERFL, whose LA is 636, contains the cell in question. So 
RL = 1026 - 636 = 170 and inspection of the compiler listing for OVERFL 
identifies the variable B as occupying 170. 

15.5,3 Finding Absolute Addresses Starting with Addresses Given in Compiler 
Listings 

The addresses given on compiler listings are relative to the beginning 
of the individual program being compiled. Since the loader relocates 
each subprogram so that its origin is at the load address rather than at 

0. the addresses of variables, etc., given in the listing must be modi- 
fied in order to inspect them in memory. The addresses where things 
actually get put in memory are referred to as absolute addresses. An 
absolute address AA is easily calculated from a relative location RL 
given in the compiler listings: 

1. Look up in the load map the load address LA where the loader put 
the given subprogram. 

2. AA = RL + LA. Remember that the numbers are octal. AA may now 
be used to inspect the variable (or whatever) in a memory dump. 

Example: 

We find the variable DEMO in the subroutine WORK in the sample program 
of Chapter 14, starting from its RL of 23. The load map gives 3241 
as the LA of WORK, so the absolute address of DEMO is 23 + 3241 = 3264. 
Cell 3264 is shown in the sample dump as 60007 77777 02004 03264. This 
is an example of the values which the loader puts in unused cells in 
memory, so we deduce that DEMO had not been set at the time the 
dump was taken. 
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Labeled COMMON blocks are not subprograms, but the method for finding 
variables contained in labeled COMMON is the same as that for finding 
other variables except that LA must be taken as the location of the 
block. 

15.6 Hazardous Names 

There are several aspects of the RUN Fortran implementation which 
restrict the kinds of name that may be given to subprograms (sub- 
routines, functions, main programs, etc.). This section discusses 
the causes and effects of such restrictions and gives as much explicit 
information as possible as to what the reserved names are. The names 
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ANSI Fortran names and indicate substandard implementation of RUN • 

The clumsy addition of literals to FORMATS by CDC causes the 
possibility of ambiguous statements; so the name FORMAT should 
not be used for arrays. 

15.6.1 Subprogram Names Illegal Because of Implied Calls 

Some Fortran statements other than CALL generate code which calls a sub- 
program. An example is the PRINT statement,' which generates a call of the 
library subprogram OUTPTC. Consequently, if a programmer names a 
subroutine of his own OUTPTC, the loader has no way to link a given 
call to the correct subprogram. RUN detects a statement which calls 
a subprogram by one of these names and flags it as a fatal error. 
However, it does not detect a subprogram named one of these names. Con- 
sequently, a main program could be given one of these names, no error 

1 J 1_„ J ~ .>- „ ~ j ] .J „ — 1 ~* £ 4 -^A t- ^ 1^/^-^ mi r,K(- v-cjt-.ii1<- A r> cvm-rv 1 o t" o 1 1 c f 
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of such names follows : 

ACGOER DBADEX IBAIEX INPUTS OUTPTN RBAIEX 

BACKSP DBAIEX IFENDF I0CHEC OUTPTS RBAREX 

BUFFEI DBAREX INPUTB IOCHEK PAUSE , REWINM 

BUFFEO END INPUTC OUTPTB Q8NTRY STOP 

CBAIEX ENDFIL INPUTN OUTPTC RBADEX 

15.6.2 Names Which Collide with Library Subprogram Linkage 

A general problem arises during loading when the same entry point 
exists in two or more subprograms. When this happens, the loader will 
link calls to the first subprogram containing the name. This sort of 
confusion is usually under the control of the programmer, who can 
avoid the problem in a variety of ways. Unfortunately, some subprograms 
in the RUN library call other subprograms in the library using 
linkage names which are legal Fortran subprogram names. If the pro- 
grammer defines a subprogram of his own with such a name, he may 'derail' 
the internal linkage of the library into his own routine. No error is 
detected by RUN or the loader and havoc is the normal result. 

The following are (otherwise legai)- names-t^f- M^ 
internally in the library: 
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ABNORML IOIO 

ALOG IOSAV 

ATAN2 IOZW 

CABS 10 ZZ 

COS KODER 

CPC KRAKER 
CPC02 

CPCQ3 PRINTRG 

CPC04 RESTORE 

CPC999 SAVEREG 

DCQR SIN 

DEXP SORT 

DLOG SYSTEM 
EXP 
GETBA 



Many of these subprograms are only required under special circumstances, 
but the ones underlined are loaded with every RUN Fortran program which 
does formatted input and output. 

Note that some of the above are Fortran functions, e.g., SIN, COS, SQRT, 
&tc : , TTiijs- if a nrocrrammer sunnlies his own version of such a Fortran 
function, it will affect calculations other than the calculation of 
the function in question. For example, the SIN function is used by 
the library functions CSIN, CCOS, CEXP. So supplying a different ver- 
sion of SIN (perhaps faster but less accurate than the library version) 
may well have unexpected and undesired side-effects. 

15.6.3 Subprogram Names Which Collide with Library Deck Names 

The relocatable binary form of a subprogram has a name associated with 
it called a deck name. The loader insists that only one subprogram of 
a given name be present in any collection of subprograms that it puts 
into memory at one time. When it finds a subprogram with the same name 
as one already loaded, it effectively ignores the latest one and proceeds 
Generally, the deck name is the same as the name by which a subprogram 
"is called. (Subprograms compiled by RUN are given the name specified 
on the SUBROUTINE, FUNCTION, etc., statement as a deck name.) 

Unfortunately, the RUN library harbors some subprograms whose deck 
names differ from the names by which they are called. An example is 
ASIN, which has a deck name of ASINCOS. Thus, if a programmer acci- 
dentally names a subroutine ASINCOS in a collection of programs which 
uses ASIN somewhere, trouble results at load time. The loader will not 
load ASINCOS from the library and ASIN will be an undefined external 
unless the programmer provides his own ASIN subprogram. 

Chapter 11, which lists RUN library subroutines and functions, indi- 
cates deck names when they differ from the name used to call the sub- 
routine. 
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HARDWARE REPRESENTATION OF PATA 



APPENPIX A 



A.l 

6400 Word Structure 



Use of machine-dependent or compiler-dependent coding within 
a Fortran program requires familiarity with the 6400 word 
structures shown below. 



TAB1B A Internal Data Formats 



INTEGER 



48 



18 IS 



W 



V [ ~59 j l^sfas ei^cprs^ 

I AND OruESION 



O 
I** 

C 
•H 
O 
Ou 
I 

c 

O 

iH 



REAL 



DOUBLE -PRECISION 



COMPLEX 



a 



J 



BIASED 
EXP 



Cnpffirienf fk^) 



^ 


BIASED 
EXP 


k 



J 



MOST SIGNIFICANT 



W 



J 



BIASED 
EXP 



"^ 



3N-I 



BIASED 
//I EXP-48 



k' 



LEAST SIGNIFICANT 



i 



HOLLERITH 
(DISPLAY CODE) 



54 


43 


42 


36 


30 


24 


18 


12 


6 





«l 


a 2 


a 3 


a 4 


a 5 


a 6 


a? 


a 8 


a 9 


a IO 



LOGICAL 



FALSE 
TRUE 



OCTAL 



57 


54 51 


48 


45 


42 


39 


Sb "• 


J 


" 


~ 


" 


65 20 


019^18 


21,7 


2>I6 


015 


014 




«4 


S) 3 


2 


"l 




* 3 


^ 


1 


^ 


3 




3 


3 


3 


3 



This knowledge is used in constructing octal masks, or 
A formats; in manipulating alphanumeric information; and in 
performing special arithmetic calculations. 
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A. 2 

INTEGER 

ARITHMETIC In fixed point addition and subtraction of 60 bit numbers, 
negative numbers are represented in one's complement nota- 
tion* and overflows produce no error condition. The sign 
bit is in the high-order bit position (bit 59) and the binary 
point is at the right of the low-order bit position (bit 0) . 
A zero sign bit indicates a positive number; a one, a nega- 
tive number. 

Examples (in octal) : 

q 00000000000000000000 

-0 77777777777777777777 

1 00000000000000000001 

-1 77777777777777777776 

25 00000000000000000031 

-25 77777777777777777746 

Further examples are shown in Table C. 

During addition and subtraction the sign bit is treated as 
just another bit of the number. This results in what is termed 
'wrap-around 1 instead of an overflow condition; thus if 1 
is added to the largest positive number, the result is the 
largest negative number: 

37777777777777777777 (largest positive number) 

+ oooooooooooooooooooi 

40000000000000000000 (largest negative number) 

•The 6400 does not have integer multiply and divide instructions: 
these operations are programmed using the floating-point instruc- 
tions. As a result, operands for these operations may be no 
larger than 248-1; larger operands lose their high-order bits. 
Programs using multiplication-division to shift bits or char- 
acters in a word are affected by this feature. Also, on output 
conversion, a variable greater -than 2* 8 -l is flagged as. out- 
of-range (R) . 

* The one's complement of a binary number is found by subtracting the number 
from 2 N -1, where N is 60 for the 6400. 
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A. 3 

REAL, COMPLEX, 
VOUBLE PRECISION 

ARITHMETIC Floating-point word representation and arithmetic are used 
for the Fortran types real, double precision and complex. 

Floating-point arithmetic takes advantage of the ability to 
express a number with the general expression kB n , where: 

k = coefficient 

B = base number 

n = exponent, or power to which the base number is raised 

For binary information the base number is the constant 2. 
The base does not appear in the number representation. 

The 60-bit floating-point format used by the CDC 6400 is shown 
below. The binary point is considered to be to the right of 
the coefficient, thereby providing a 48-bit integer coefficient, 
the equivalent of about 15 decimal digits. The sign of the 
coefficient is carried in the highest order bit of the 
word; a zero bit indicates a positive number and a one bit, a 
negative number. Negative numbers are represented in one's 
complement notation. 



COEFFICIENT 
SIGN 



BIASED 
EXPONENT 



INTEGER 
COEFFICIENT 



48 



~> r 

J i 



48 47 



59 58 

BINARY 
1Q POINT 

The 11-bit exponent carries a bias of 2 (2OOO3) when placed 
in the floating-point word (a biased exponent is sometimes 
referred to as a characteristic). Thus, a number with a true 
exponent of 342g would appear as 2342g; a number with a true 
exponent of -160g would appear as 1617g. Exponent arithmetic 
is done in one's complement notation. 

The coefficient is normalized; that is, the most significant 
bit is in bit 47 of the word. Since the binary point is to 
the right of the normalized coefficient, the coefficient is 
an integer between 2^7 an d 2^8. Therefore all numbers less 
than 2^7 will have negative exponents. 



Examples (in octal) : 



1.0 

-1.0 

1.09?5xT0 

1.4074x10 



12 
14 



17204000000000000000 
60573777777777777777 
I77TJ4 OOOOOUOUOODOOOO 
20004000000000000000 
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Conve/iting 
Vlocuting-Voiwt 



Octal Floating-Point to Decimal Conversion Tables 

Several tables are included in this appendix to assist the 
programmer who wishes an approximate conversion of octal 
floating-point values to decimal: 



Table 
C 
D 

E 



illustrates some full word octal forms 

gives conversions for values near unity 

gives rough scale conversions for all floating-point 
numbers . 



A decimal value which appears in the body of either Table 
D or Table E is equivalent to the octal number whose 
high-order digits appear as the row and column headings, res- 
pectively, with zeros to the right. For example: 



Table 


Row 


Col. Octal Number 


Decimal Number 


D 


17154 


17154000000000000000 


.12500 


D 


17337 


3 17337300000000000000 


3776.0 


E 


17 


504 17504000000000000000 


1.677x10' 


E 


05 


704 05704000000000000000 


2.4099xl0" 18j 


Conversion of 


a Number from Decimal to Floating-Point Form 



The operation of converting the decimal number 12.5 to its 
exact octal floating-point representation is as follows: 



a. 



b. 



c. 



Convert the number to binary: 12.5 1Q = 1100. 1 2 

Express the number as a 48-bit integer coefficient nor- 
malized (.i.e, with a one as the leftmost bit) times the 
appropriate integral power of two: 

1100. 1 2 = 110010000000000000000000000000000000000000000000 

9 -44 
x 2 

(Octally seen as 6200000000000000 in the coefficient field.) 
Convert this power to octal : ~^^iq = ~ 5 ^8 
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d. If the power is positive, add it to 2000 g . If the power 
is negative, subtract it from 1777 g ; therefore 1777 g - 
54 g = 1723 g . 

e. And obtain the result as the octal word: 

17236200000000000000 . 

Reversing the process gives the decimal version of the number. 

0v&L&loW> UndeA- 

hlow and IndoXzA- ■ , 

minotz Vonmi> The magnitude of a floating-point number is limited by tne x± 

bits allocated for the characteristic. Its range, from 00008 
to 3777s, is equivalent to about 10-294 to 10 JZZ . The result 
of a floating-point operation (usually division by zero) which ^ 
exceeds the upper limit (overflow case) is treated as an infinite 
quantity. The result is zero if the exponent falls below the 
lower limit (underflow case). Indefinite (i.e., indeterminate) 
results may follow the use of infinity (or possibly zero) as 
operands or may be returned by mathematical functions (refer 
to Section 15.4.4) which are given illegal arguments (such as 
SQRT (-1.) ) . 

The floating-point circuitry of the computer assigns the fol- 
lowing special bit configurations to indicate indefinite and 
infinite operands: 

+ oo 3777XXXXXXXXXXXXXXXX (causes MODE 2 errors) 

4000XXXXXXXXXXXXXXXX (causes MODE 2 errors) 

+indefinite 1777XXXXXXXXXXXXXXXX (causes MODE 4 errors) 

-indefinite 6000XXXXXXXXXXXXXXXX (causes MODE 4 errors) 

(X = any octal digit) 

Computation is not halted when the indefinite or infinite 
result is generated . If either form may be generated as 
the final value of the expression in an arithmetic replace- 
ment statement, the program may test for these exceptional 
conditions by using the LEGVAR function (see section 11.2.10) 
before the result is used for further computation. 

For Underflow or Overflow Use : 

LEGVAR (V name.) The function value returned will be -1, 
+1, or if the variable vname. is inde- 
finite, infinite, or within range, res- 
pectively. 



A -5 



A. 4 

ALPHANUMERIC 

WORDS 



The infinite or indefinite result may be printed (printing 
as R for infinite, I for indefinite) or moved from one 
location to another with no error condition arising. 

Computation is halted (error exit) when an attempt is made to 
use either form in a floating-point operation (see Section 15. 
4.4). Use of an indefinite or infinite form which is the 
result of a sub-expression evaluation within an expression 
may trigger the error exit before the above test can be made. 
(Thus if A/B results in an infinite form, the evaluation of 
the expression; (A/B) *C will cause an error exit.) 

The operating system may be instructed to process infinite and 
indefinite operands without taking an error exit (see MODE in 
CALIDOSCOPE Control Statements) . 

Shown below are the results of all calculations involving 
infinite or indefinite forms. 

Arithmetic Involving Infinite and Indefinite Forms 

oo - oo = X co/N = oo 00 + 00 = 00 0/ co =0 

00 / °° = I oo -f JJ = °° 00*00 = 00 0*0 = 

oo*0=I oo_N = oo oo/0 = °° / N = 

0/0=1 N/0 = °° oo*n = o° n/°°=0 

i e x = i o*n=o 

where °° = infinity N = any finite nonzero floating- 

I = indefinite point number 

= zero X = I, N, or °° 



Table H lists the display codes stored for character 
string information on the 6400. Character strings are 
often compared and sorted by means of arithmetic or 
masking operations which depend on these octal values. 

Several new methods of defining and handling character 
data are available: 



1. Internal format conversions may be made by means of the 
FORTRAN statements ENC0DE and DEC0DE (Section 10.5). 

2. Two new forms, nRf and nLf , have been added as Hol- 
lerith constant specifications. 

3. The Hollerith constants may be used in executable state- 
ments as well as in DATA statements, for example, 
A=9HH0LLERITH. (Note that the end-code for Hollerith 
constants in argument lists is a binary zero word.) 
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4. One new form, Rn, has been added as an alphanumeric 
format conversion specification. 

Table B clarifies the use of these different forms. 

Note that the octal form, which may be used to define any 
word structure, is useful for internal definition of the 
additional printer characters shown in Table G. (These 
printer characters do not appear on a key punch and must 
otherwise be multiple-punched on a card.) 



A. 5 

LOGICAL 

OPERANDS 



Logical operands are defined as 77777777777777777777 octal 
(minus 0) for true and binary zero (plus 0) for false. The 
logical operators .AND.,.0R. and .N0T. are used with these 
operands as discussed in Section 3.3. 

However, it must be remembered that operators .AND., .0R. and 
.NOT. perform a dual function on the 6400, acting as masking 
operators as well as logical operators. The same internal 
evaluation is used for both types of operations: a bit-by-bit 
masking. That is, each binary bit of an operand is comple- 
mented in the .NOT. operation, and the pairs of corresponding 
bits in two operands are masked bit-by-bit in the .AND. and 
.0R. operations. Section 3.4 defines these maskings evaluations 
For example, given 



A = 00000000000000000001 8 
B = 000000000000000000108 



(a non-zero word) 
(a non-zero word) 



then 

A.AND.B = 00000000000000000000 8 (a plus zero word) 

Yet, in a logical operation the word as a whole must be the 
logical unit of information. This unit is obtained by using 
as operands only the words in which all bits are the same, the 
plus zero (all zero bits) for false, or the minus zero (all 
one bits) for true. Logical operands which are defined 
within the FORTRAN language will be assigned these values. 

If the definitions for logical operands are not followed , not 
only will logical operations be faulty but also the logical 
IF statement will give erroneous results. The test in a 
logical IF statement provides a true branch if the result of 
the expression is anything other than plus zero; that is, if 
any bit is one. Thus, in the example shown above, the expres- 
s±on^A.AND,B gives a false value (a p_lus„ze_rp) and a false 
branch even though A and B have non-zero values (true values) . 



A- 7 



> 
I 

00 



TABLE B Character String Data 





Form when less than full 
word is specified 




Example of information stored 
in machine word 




Type of 
Definition 


Characters 

are 
iustif ied 


Unused 
positions 
filled with 


Example 
Definition 


As Characters 
(ten/word) -* 


As octal digits 
(20/word) 


Reference 
Section 


Hollerith con- 
stant nHf 1 


left 


blank 
characters 


7HTABLEbZ 


TABLEbZbbb 


24010214055532555555 


2.3.6 


Hollerith con- 
stant nRf 


right 


binary 
zeros 


7RTABLEbZ 


OOOTABLEbZ 


00000024010214055532 




Hollerith con- 
stant nLf ^ 


left 


binary 
zeros 


7LTABLEbZ 


TABLEbZOOO 


24010214055532000000 




Format 
conversion 
spec. Aw 


left 


blank 
characters 


A4 


RATSbbbbbb 


22012423555555555555 


9.3.12 


!. Format 
conversion 
spec. Rw2 


right 


binary 
zeros 


R4 


OOOOOOBATS 


00000000000022012423 


9.3.15 


Octal con- 
stant 0n 


right 


binary 
zeros 


053232515 


000000$ SUM 


00000000000053232515 


2.3.2 




Octal format 
conversion 0w 


right 


binary 
zeros 


020 


(P*Qv-,R)bb 


51206721667622525555 


9.3.12 



1. 



All definition* must be for ten characters or less except the nHf Hollerith constant when it appears 
in a DATA statement. (Caution: the nHf is also used as an editing specification in a format state- 
ment. Such use does not define a Hollerith constant.) 



2. Caution: The nLf form is a Hollerith constant, but the Lw form is a logical format conversion speci- 
fication (see Section 9.3.17). ;'■■ 



3. JO represents a true binary zero, but not a display code zero, b represents' a blank. 



Moreover, unless a logical value (X) is properly defined, 
both "X" and ".N0T.X" will be treated as true in a logical 
IF statement. For example, if X - 1.0 - 17204000000000000000 
octal, then .N0T. X - -1.0 (the complement of X) - 
60573777777777777777 octal, and since neither of these is 
plus 0, they are both true. 

The L input format conversion assigns the value .TRUE, to a 
variable when the field on the data card contains T as the 
first non-blank character. Otherwise the value .FALSE, is 
assigned. A diagnostic is never given, no matter what 
characters appear in the data field; that is, the input is 
alphanumeric. Note that each of the following data items 
will be assigned the value false if read in and converted 
under an L format: 

F, 1, 0, -0, -1, .TRUE. 
A. 6 Summary of Numeric Representations 

The smallest nonzero positive REAL which 

fits in one computer word is .3131513062514-293 or OCTAL 00014000000000000000 

The largest positive REAL which fits in 

one computer word is .1265014083171+323 or OCTAL 37767777777777777777 

Positive zero, also used as logical 

FALSE, is stored as 0. or OCTAL 00000000000000000000 

Negative zero, also used as logical 

TRUE, is stored as -0. or OCTAL 77777777777777777777 

The smallest nonzero negative REAL 

which fits in one computer word is -.3131513062514-293 or OCTAL 77763777777777777777 

The largest negative REAL which fits 

in one computer word is -.1265014083171+323 or OCTAL 40010000000000000000 

The largest positive INTEGER which 

can be output as a decimal number is 281474976710655 or OCTAL 00007777777777777777 

Positive octal INTEGERS from 00010000000000000000 to 17767777777777777777 may be stored 
and added or subtracted but not multiplied or printed as decimals. For example 

R or OCTAL 00010000000000000000 
R or OCTAL 17767777777777777777 

The largest negative INTEGER which 

can be output as a decimal number is -281474976710655 or OCTAL 77770000000000000000 

Negative octal INTEGERS from 77767777777777777777 to 60010000000000000000 may be stored 
and added or subtracted but not multiplied or printed as decimals. For example 

R or OCTAL 07775777777777777777 
R or OCTAL 60010000000000000000 

Four special forms are reserved for infinite or indefinite real results, and may be 
stored or moved but not used as real operands. They are determined by the first 
four ocal digits, and the other digits may be any octal characters. 
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A. 6.1 Limiting Values for Integers 

The largest integer which can he handled directly by the hardware is 
+5674&07523Q3423487 - 2 s9 - 1. More stringent limits are sometimes 
ijnposed on integers used in certain contexts. If these limits are 
exceeded, no error message is given and results are unpredictable. 
The contexts and limits are: 

CONTEXT MAXIMUM INTEGER VALUE 

48 
integer multiplication or division +281474976710655 =2 - 1 

Index of DO-loop +131071 = 2 1 - 1 (and greater than 0!) 

48 
Integer mode to real mode conversion +281474976710655 =2 - 1 

59 
real mode to integer mode conversion +576460752303423487 = 2 - 1 (but the 

real has less precision than this) 

48 
integer to he converted for output +281474976710655 =2 - 1 

integer addition, subtraction, or eg 

input conversion +576460752303423487 =2 - 1 

A. 6. 2 Limiting Values for Floating-Point (Reals, Complex, Double-Precision) 

The magnitude of non-zero floating-point values which can be handled 
directly by the hardware must lie in the range .313151306251401E-293 to 
.126501408317068E323. Generating a value smaller than the lower limit 
results in a zero with no other indication that accuracy has been lost. 
Generating a value larger than the upper limit results in a special 
value called infinite. Infinite values may be tested for with the 
library subroutine LEGVAR. Use of a infinite value in a floating-point 
calculation will cause an arithmetic error detected by the hardware. 

Reals are directly represented in floating point, so the above limits 
apply directly. Complex values are represented by a pair of floating- 
point values, so the real and imaginary parts of a complex value are 
each constrained by the same limits. Double-precision values are 
represented by a pair of floating-point values. The MSP (most sig- 
nificant part) is a regular floating-point value and is constrained 
by the given limits. The LSP (least significant part) is also a 
floating-point value, but it has a characteristic which is 48 less 
than that of its corresponding MSP. Thus, the LSP will be set to 
when the MSP is 2^ 8 times larger than the given lower limit for 
floating-point. In other words, half the accuracy of a double- 
precision value will disappear when the magnitude gets down to 
2 Zt8 *.3131513Q6251401E-293. At the other extreme, an LSP larger than 
2 -48* ,126501408317068E323 would imply that the corresponding MSP 
has become infinite. 
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TABLE C Samples of Powers of Ten 



10* 



1 

10 

100 

1000 

10000 

100000 

1000000 

10000000 

loooooooo 

1000000000 

10060000000 

1000^0000000 
1000060000000 

loooooiooooooo 

lOOOOOOfOOOOOOO 



Octal Integer 
00000000000000000000 



ooooooooooo 
ooooooooooo 
ooooooooooo 
ooooooooooo 
ooooooooooo 
ooooooooooo 
ooooooooooo 
ooooooooooo 
ooooooooooo 

000000 007 
00000000112 
00000001351 
00000016*32 

000002214U 
OQ002657U2 



000000001 
000000012 
000000144 
000001750 
000023420 
000303240 
003641100 
046113200 
575360400 
346545000 
402762000 
035564000 
451210000 
634520000 
036440000 



n 




1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 



' -10" 
-0 

-1 

-10 

-100 

-1000 

-10000 

-100000 

-1000000 

-10000000 

-10000000 

-1000000000 

-1000000000 

-100000000000 

-1000000000000 

-10000000000000 

•100000000000000 



Negative Octal Integer 

mnmirmmmi 
mimminimiiib 

77777777777777777765 
77777777777777777633 
77777777777777776027 
7777/777777777754357 
77777777777777474537 
77777777777774136677 
77777777777731664577 
77777777777202417377 

7777777777043123277/ 

77777777665375015777 
7777/776426742213777 
777f 7761345326567777 
777775563661432577/7 
77775120635741337777 



;> 
i 



10.0 
iOOOOOOl 

ioooooio 

•0000100 
.0001000 
•0010000 
>0100000 
•1000000 

1 

10 

100 

1000 

10000 

: iooooo 

1000000 
10000000 

loooooooo 

1060000000 

10000000000 

100000000000 

1000000000000 



Octal Floating Point 

167065537^2465362573 -7 

1*744143367501327555 -6 

U775174265421615510 -5 

17026433342726161032 -4 

17064061 11564570^520 -3 

17115075341217270244 -2 

17146314631463146315 -1 

17204000000000000000 

17235000000000000000 1 

17266200000000000000 2 

17317640000000000000 3 

17354704000000000000 4 

17406065000000000000 5 

17437502200000000000 6 

17474611320000000000 7 

1752575360400 0000 00 8 

175573465450 000 00000 9 

17614520137100000000 10 

17645644166720000000 11 

1767 72152245040 00000 12 



-10.0 

-.0000001 
-•000001U 

••ooooioo 

-tOOOlOOU 
-•0010000 
-•0100000 
-•1000000 

-1 

-10 

-100 

-1000 

-loooo 

-100000 

-1000000 

-10000000 

-loooooooo 

-1000000000 

-10000000000 

-100000000000 

-1000000000000 



Negative Octal Floating Point 
61071224015312415204 
61033634410276450222 
61002603612356162267 
607*1344435051616745 
60713716662132071257 
606O2702436560507533 
60631463146314631462 
6057377777777777777? 
605*2777777777777777 
60511577777777777777 
604b0137777777777777 
60423073777777777777 
60371712777777777777 
60340275577777777777 
6030J166457/77777777 
602*2024173777777777 
602204312J2777777777 
60163257640677777777 
60132133611057777777 
60100562553273777777 



TABLE D Octal 



17014 

170 ,5 

17018 

17017 

17024 

17025 

17026 

17027 

17034 

17035 

17036 

17037 

17044 

17045 

17046 

17047 

170 5 A 

17055 

17036 

17057 

17064 

17065 

17066 

17067 

1 7(174 

17075 
17076 
17077 
17104 
17105 
17106 
17107 
17114 
17115 
17116 
17117 
17124 
17125 
17)26 
17127 
17134 
17135 
" 17136 
17137 
17144 
17145 
17146 
17147 
17154 
1.7155 
17156 
17157 
17164 
17161- 
17166 
17167 
17174 
17175 
17L7o 
17177 




.00003 
.00004 
.00005 
.00005 
.00006 
.00008 
.00009 
.COO 11 
.00012 
.00013 
.00018 
.00021 
.00024 
.00031 
.00037 
.00043 
.00049 
.00061 
.00073 
.00085 
.00098 
.00122 
.00146 
.00171 



.00244 

.00293 

.00342 

.00391 

.00488 

.00586 

.00684 

.00781 

.00977 

.01172 

.01367 

,01563 

.01953 

.02344 

.02734 

.03125 

.03906 

.04688 

.05469 

.06250 

.07813 

.09375 

.10938 

.12500 

.15625 

.18750 

.21875 

.25000 

.31250 

.37500 

.43750 

.50000 

•62500 

.75000 

.37500 



.00003 

.00004 

.00005 

.00005 

.00006 

.00008 

.00009 

.00011 

.00013 

.00016 

.00019 

.00022 

.00025 

.00031 

.00037 

.00043 

.00050 

.00063 

.00075 

.00087 

.00101 

.00125 

.00150 

.00174 

,00201 

.00250 

.00299 

.00348 

.00403 

.00500 

.00598 

.00696 

.00806 

.01001 

.01196 

.01292 

.016il 

.02002 

.02393 

.02733 

.03223 

.04004 

.04785 

.05566 

.06445 

.03008 

.09570 

.11133 

.12891 

.16016 

.19141 

.22266 

.25781 

.32031 

.38281 

.44531 

.51563 

.64063 

.76563 

.89063 



Floating 

2 
.00003 
.00004 
.00005 
.00006 
.00006 
.00008 
.00010 
.0001* 
.00013 
.00016 
.00019 
.00022 
.00026 
.00032 
.00038 
.00044 
.00052 
.00064 
.00076 
.00089 
.00104 
.00128 
.00153 
.00177 
•00208 
.00256 
.00305 
.00354 
.00415 
.00513 
.00610 
.00708 
.00830 
.01025 
.01221 
.01416 
.01660 
.02051 
.02441 
.02832 
.03320 
.04102 
.04883 
.05664 
.06641 
.08203 
.09766 
.11328 
.13281 
.16406 
.19531 
.22656 
.26563 
.32313 
.39063 
.45313 
.53125 
.65625 
.73125 
.90625 



Point to Decimal Conversion for Numbers Near Unity 



3 
.00003 
.00004 
.00005 
.00006 
.00007 
.00008 
.00010 
.00011 
.00013 
.00016 
.00019 
.00023 
.00027 
.00033 
.00039 
.00045 
.00053 
.00066 
.00073 
.00090 
.00107 
.00131 
.00156 
.00180 
,00214 
.00262 
.00311 
.00360 
.00427 
.00525 
.00623 
.00720 
.00854 
.01050 
.01245 
.01440 
.01709 
.02100 
.02490 
.02881 
.03418 
.04199 
.04980 
.05762 
.06836 
.08398 
.09961 
.11523 
.13672 
.16797 
.19922 
.23047 
.27344 
.33594 
.39844 
.46094 
.54683 
.67188 
.796 38 
.92138 



.00003 

.00004 

.00005 

.00006 

.00007 

.00008 

.00010 

.00011 

.00014 

.00017 

.0^020 

.00023 

.00027 

.00034 

.00040 

.00046 

.00055 

.00067 

.00079 

.00092 

.00110 

.00134 

.00159 

.00183 

.00220 

.00269 

.00317 

.00366 

.00439 

.00537 

.00635 

.00732 

.00879 

.01074 

.01270 

.01465 

.01758 

.02148 

.02539 

.02930 

.03516 

.04297 

.05078 

.05859 

.07031 

.08594 

.10156 

.11719 

.14063 

.17188 

.20313 

.23438 

.28125 

.34375 

.40625 

.46875 

.56250 

.68750 

.81250 

.93750 



.00004 

.00004 

.00005 

.00006 

.00007 

.00009 

.00010 

.00012 

.00014 

.00017 

.00020 

.00023 

.00028 

.00034 

.00040 

.00047 

.00056 

.00069 

.00081 

.00093 

.00113 

.00137 

.00162 

.00186 

.00226 

.00275 

.00323 

.003 72. 

.00452 

.00549 

.00647 

.00745 

.00903 

.01099 

.01294 

.01489 

.01807 

.02197 

.02588 

.0297 5 

.03613 

.U4395 

.05176 

.05957 

.07227 

.08789 

.10352 

.11914 

.14453 

.17578 

.20703 

.23828 

.28906 

.35156 

.41406 

.47656 

.57813 

.70313 

.82813 

.95313 



6 
.00004 
.00004 
.00005 
.00006 
.00007 
.00009 
.00010 
.00012 
.00014 
.00018 
.00021 
.00024 
.00029 
.00035 
.00041 
.00047 
.00058 
.00070 
.00082 
.00095 
.00116 
.00140 
.00165 
.00189 
.00232 
.00281 
.00330 
.00378 
.00464 
.00562 
.00659 
.00757 
.00928 
.01123 
.01318 
.01514 
.01855 
.02246 
.02637 
.03027 
.03711 
.04492 
.05273 
.06055 
.07422 
.08984 
.10547 
.12109 
.14844 
.17969 
.21094 
.24219 
.29688 
.35938 
.42188 
.48438 
.59375 
.71875 
.84375 
.96875 



7 
.00004 
.00004 
.00005 
.00006 
.00007 
.00009 
.00010 
.00012 
.00015 
.00018 
.00021 
.00024 
.00030 
.00036 
.00042 
.00048 
.00060 
.00072 
.00084 
.00096 
.00119 
.00143 
.00168 
.00192 
.00238 
.00287 
.00336 
.00385 
.00476 
.00574 
.00671 
.00769 
.00952 
.01147 
.01343 
.01538 
.01904 
.02295 
.02686 
.03076 
.03809 
.04590 
.05371 
.06152 
.07617 
.09180 
.10742 
.12305 
.15234 
.18359 
.21484 
.24609 
.30469 
.36719 
.42969 
.49219 
.60938 
.73438 
.85938 
.98438 
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TABLE D Octal Floating Point to Decimal Conversion for Numbers Near Unity 



17204 

17205 

17206 

17207 

17214 

17215 

17216 

17217 

17224 

17225 

17226 

17227 

17234 

17235 

17236 

17237 

17244 

17245 

17246 

17247 

17254 

17255 

17256 

17257 

17264 

17265 

17266 

17267 

17274 

17275 

17276 

17277 

17304 

17305 

17306 

17307 

17314 

17315 

17316 

17317 

17324 

17325 

17326 

17327 

17334 

17335 

17336 

17337 

17344 

17345 

17346 

17347 

17354 

17355 

17356 

17357 

17364 

17365 

17366 

17367 




1.0000 
1.2500 
1.5000 
1.7500 
2.0000 
2.5000 
3.0000 
3.5000 
4.0000 
5.0000 
6.0000 
7.0000 
8.0000 
10.000 
12.000 
14.000 
16.000 
20.000 
24.000 
28.000 
32.000 
40.000 
48.000 
56.000 
64.000 
80.000 
96.000 
112.00 
128.00 
160.00 
192.00 
224.00 
256.00 
320.00 
384.00 
448.00 
512.00 
640.00 
768.00 
896.00 
1024.0 
1280.0 
1536.0 
1792.0 
2048.0 
2560.0 
3072.0 
3584.0 
4096.0 
5120.0 
6144.0 
7168.0 

10240. 
12288. 
14336. 
16384. 
20480. 
24576. 
28672. 



1 
1.0313 
1.2813 
1.5313 
1.7813 
2.0625 
2.5625 
3.0625 
3.5625 
4.1250 
5.1250 
6.1250 
7.1250 
8.2500 
10.250 
12.250 
14.250 
16.500 
20.500 
24.500 
28.500 
33.000 
41.000 
49.000 
57.000 
66.000 
82.000 
98.000 
114.00 
132.00 
164.00 
196.00 
228.00 
264.00 
328.00 
392.00 
456.00 
528.00 
656.00 
784.00 
912.00 
1056.0 
1312.0 
1568.0 
1824.0 
2112.0 
2624.0 
3136.0 
3648.0 
4224.0 
5248.0 
6272.0 
7296.0 
8448 v&™ 
10496. 
12544. 
14592. 
16896. 
20992. 
25088. 
29184. 



2 
1.0625 
1.3125 
1.5625 
1.8125 
2.1250 
2.6250 
3.1250 
3.6250 
4.2500 
5.2500 
6.2500 
7.2500 
8.5000 
10.500 
12.500 
14.500 
17.000 
21.000 
25.000 
29.000 
34.000 
42.000 
50.000 
58.000 
68.000 
84.000 
100.00 
116.00 
136.00 
168.00 
200.00 
232.00 
272.00 
336.00 
400.00 
464.00 
544.00 
672.00 
800.00 
928.00 
1088.0 
1344.0 
1600.0 
1856.0 
2176.0 
2688.0 
3200.0 
3712.0 
4352.0 
5376.0 
6400.0 
7424.0 
8704 ■» 
10752. 
12800. 
14848. 
17408. 
21504. 
25600. 
29696. 



3 
1.0938 
1.3438 
1.5938 
1.8438 
2.1875 
2.6875 
3.1875 
3.6875 
4.3750 
5.3750 
6.3750 
7.3750 
8.7500 
10.750 
12.750 
14.750 
17.500 
21.500 
25.500 
29.500 
35.000 
43.000 
51.000 
59.000 
70.000 
86.000 
102.00 
118.00 
140.00 
172.00 
204.00 
236.00 
280.00 
344.00 
408.00 
472.00 
560.00 
688.00 
816.00 
944.00 
1120.0 
1376.0 
1632.0 
1888.0 
2240.0 
2752.0 
3264.0 
3776.0 
4480.0 
5504.0 
6528.0 
7552.0 
8-960.0 
11008^ 
13056. 
15104. 
17920. 
22016. 
26112. 
30208. 



4 
1.1250 
1.3750 
1.6250 
1.8750 
2.2500 
2.7500 
3.2500 
3.7500 
4.5000 
5.5000 
6.5000 
7.5000 
9.0000 
11.000 
13.000 
15.000 
18.000 
22.000 
26.000 
30.000 
36.000 
44.000 
52.000 
60.000 
72.000 
88.000 
104.00 
120.00 
144.00 
176.00 
208.00 
240.00 
288.00 
352.00 
416.00 
480.00 
576.00 
704.00 
832.00 
960.00 
1152.0 
1408.0 
1664.0 
1920.0 
2304.0 
2816.0 
3328.0 
3840.0 
4608.0 
5632.0 
6656.0 
7680.0 
921- 6*0 
11264. 
13312. 
15360. 
18432. 
22528. 
26624. 
30720. 



1.1563 

1.4063 

1.6563 

1.9063 

2.3125 

2.8125 

3.3125 

3.8125 

4.6250 

5.6250 

6.6250 

7.6250 

9.2500 

11.250 

13.250 

15.250 

18.500 

22.500 

26.500 

30.500 

37.000 

45.000 

53.000 

61.000 

74.000 

90.000 

106.00 

122.00 

148.00 

180.00 

212.00 

244.00 

296.00 

360.00 

424.00 

488.00 

592.00 

720.00 

848.00 

976.00 

1184.0 

1440.0 

1696.0 

1952.0 

2368.0 

2880.0 

3392.0 

3904.0 

4736.0 

5760.0 

6784.0 

7808.0 

11520. 

13568. 
15616. 
18944. 
23040. 
27136. 
31232. 



6 
1.1875 
1.4375 
1.6875 
1.9375 
2,3750 
2.8750 
3.3750 
3.8750 
4.7500 
5.7500 
6.7500 
7.7500 
9.5000 
11.500 
13.500 
15.500 
19.000 
23.000 
27.000 
31.000 
38.000 
46.000 
54.000 
62.000 
76.000 
92.000 
108.00 
124.00 
152.00 
184.00 
216.00 
248.00 
304.00 
368.00 
432.00 
496.00 
608.00 
736.00 
864.00 
992.00 
1216.0 
1472.0 
1728.0 
1984.0 
2432.0 
2944.0 
3456.0 
3968.0 
4864.0 
5888.0 
6912.0 
7936.0 
.9X28.0 
11776. 
13824. 
15872. 
19456. 
23552. 
27648. 
31744. 



7 
1.2188 
1.4668 
1.7166 
1.96 58 
2*4375 
2.9375 
3.437 5 
3.9375 
4.8750 
5.8750 
6.8750 
7.8750 
9.7500 
11.750 
13.750 
15.750 
19.500 
23.500 
27.500 
31.500 
39.000 
47.000 
55.000 
63.000 
78.000 
94.000 
110.00 
126.00 
156.00 
188.00 
220.00 
252.00 
312.00 
376.00 
440.00 
504.00 
624.00 
752.00 
880.00 
1008.0 
1248.0 
1504.0 
1760.0 
2016.0 
2496.0 
3008.0 
3520.0 
4032.0 
4992.0 
6016.0 
7040.0 
8064.0 
9984. G 
12032. 
140S0. 
16126. 
19968. 
24064. 
28160* 
32256. 
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TABLE E FULL RANGE OCTAL FLOATING POINT TO DECIMAL CONVERSION 



OCTAL 00* 



> 
i 



' 00 0, 

01 2.8883-275 

02 5.3280-256 

03 9.8284-237 

04 1.8130-217 

05 3,3444-198 

06 6.1694-179 

07 1.1381-159 

10 2.0993-140 

11 3.8726-121 

12 7.1437-10? 

13 1.3178E-82 

14 2.4309£-63 

15 4,4842^-44 

16 8.2718^-25 
*17 1.5259E-05 

26 1.4074E + H 

21 2.5961E+33 

22 4.7890E+52 

23 8.8342E*7i 

24 1.6296E*9i 

25 3. 0061 + Ho 

26 5.5453*129 

27 1.0229*149 

30 1.3870*168 

31 3.4809+187 

32 6, 4211*206 

33 1. 1845*226 

34 2.1850+245 

35 4,0306+264 

36 7. 435i*?8'» 

37 1.3715+303 



104 

4,0083-292 

7.3941-273 
1.3640-253 
2.5161-234 
4.6413-215 
8,5618-196 
1.5794-176 
2.9134-157 

5.3743-138 
9,9138-119 
1.8288E-99 
3.3735E-80 
6.2230E-61 
1.1479E-41 
2. 1176E-22 
3.9063E-03 

3.6029E+16 
6,6461E+35 
1.2260E+55 
2.2616E+74 
4.1718E+93 
7.6957 + H2 
1.4196+132 
2.6187+151 

4.8307+170 
8.9110+189 
1.6438+209 
3.0323*228 
5.5935+247 
1.0318+267 
1 .9n^4*P«A 

3.5U1 + 305 



204 

T. 0261-289 

1.8929-270 
3.4918-251 
6.44H-232 
1.1882-212 
2.1918-193 
4.0432-174 
7.4583-155 

1.3758-135 

2.5379-116 
4.6817E-97 
8.6362E-78 
1.5931E-58 
2.9387E-39 
5.4210E-20 
1.0000E+00 



9, 


•2234E 


*18 


1. 


>7014E 


+ 38 


3. 


•1386E 


♦ 57 


5< 


.7896E 


♦ 76 


1« 


,0680E 


♦ 96 


1« 


.9701* 


115 


3< 


•6342* 


134 


6, 


,7039+ 


153 


1 


.2367+ 


173 


2 


»2812+ 


192 


4 


.2081+ 


211 


7 


i7626+ 


230 


1 


,4319+ 


250 


2 


.6415+ 


269 


4 


. fl7s>7* 


ontk 


8 


,9885+ 


307 



304 

2.6269 ; 
4,8458- 
8,9389- 
1.6489- 
3.0417- 
5.6110' 
1.0351. 
1.9093- 



404 



-287 
■268 
•249 
■229 
•210 
191 
'171 
'152 



3.5221-133 
6.4971-114 
1.1985E-94 
2.2109E-75 
4.0783E-56 
7.5232E-37 
1.3878E-17 
2.5600E*02 

"2.36T2E + 21 
4.3556E+40 
8 #0 347E+5^ 
1.4821E+79 
2.7341E+98 
5.0435+U7 
9.3035*136 
1.7162*156 

3.1658+175 
5.8399+194 
1.0773+214 
1.9872*233 
3,6658*252 
6.7622*271 
1 i2 474 * ?Q ! 
2.3010*310 



6,7249-285 
1,2405-265 
2.2884-246 
4,2213-227 
7.7869-208 
1.4364-188 
2.6497-169 
4.8879-150 

9.0166-131 

1,6633-111 
3.0682E-92 
5.6598E-73 
1.0440E-53 
1.9259E-34 
3.5527E-15 
6,5536E*04 

6.0446e:*23 
1.115Q E>4 3 
2.0569E+62 
3.7943E>81 
6.9992* 100 
1.2911*120 
2. 3*17*139 
4.3935*158 

8,1045+177 

1.4950+197 
2.7578*216 
5.0873*235 
9,3844*254 
1.7311*274 

5,8907+312 



504 

T, 7216- 282 

3.1757-263 
5.8582-244 
1.0806-224 
1.9934-205 
3.6772-186 
6.7833-167 
1.2513-147 

2.30^2-128 
4.2580^109 
7.8545E-90 
T.4489E*-70 
2.6728E-51 
4.9304E-32 
9.0949E-13 
1.6777E*07 

1 . 5474£*26 

2,8545E*45 
5,2656E*64 
9.7133E*83 
1,7918*103 
3.3053*122 
6.0972*141 
1.12^7*161 



2.0748 
3.8273 
7.0600 
1.3023 
2.4024 

4.4317 

tt.»7Sn 

U5080 



♦ 180 

♦ 199 
♦218 

♦ 238 

♦ 257 

♦ 276 

♦ 315 



604 

4.4072. 
8.1299- 
1.4997- 
2.7665- 
5.1032- 
9.4137' 
1.7365' 
3.2033^ 



280 
261 
'241 
222 
•203 
184 
164 
145 



5.9091-126 
1.0900-106 
2.0108E-87 
3.7Q92E-68 
6.8423E-49 
1.2622E-29 
2.3283E-10 
4.2950E*09 

3.9614EV28 
7.3075E*47 
i;3480E*6t 
2.4866E*86 
4.5870*105 
8.4615*124 
W5609*144 
2.8793*163 



5.3114 

9.7978 
l.'8o74 
3.3340 
6.1502 
1.1345 

3.8605 



♦ 182 

♦ 201 

♦ 221 

♦ 240 

♦ 259 

♦ 279 

♦ 31 7 



704 

1.1282- 
2.0812' 
3.8392" 
7.0821- 
1.3064- 
2.4099- 
4,4455- 
8,2005- 



^27 7 

•258 
•239 
•220 
•200 
•181 
•162 
•143 



1.5127-123 
2.7905-104 
5.1476E-85 
9.4956E-66 
U7516E-46 
3.2312E-27 
5.9605E-08 
1.0995E+12 

T.0141E+31 

1.8707E+50 
3.4509E+69 
6.3657E+88 
1.1743+108 
2.1661+127 
3.9958+146 
7,3710+165 

1,3597+185 
2.5082+204 
4.6269+223 
8.5351+242 
1.5744+262 
2.9043+281 
^ m 7c; *-jnn 

9, 8^29 + 319 



Coordinates represent the five leftmost octal digits, 
represents the octal word: 17 004 00000 00000 00000, 

are represented as + nnn, rather than E+ nn. 



Example: The first column of the starred line 
Powers -of 10 greater than +99 or less than -99 



TABLE F CONVERSION TABLE OF 

OCTAL-DECIMAL INTEGERS 




0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 

0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 

0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 



0064 
0072 
0080 
0088 
0096 
0104 
0112 
0120 



0065 
0073 
0081 
0089 
0097 
0105 
0113 
0121 



0121 0129 

0136 0137 

0144 0145 

0152 0153 

0180 0161 

0168 0169 

0178 0177 

0184 0185 

0192 0193 

0200 0201 

0201 0209 
0216 0217 
0224 0225 
0232 0233 
0240 0241 
0248 0249 



0066 0067 

0074 0075 

0082 0083 

0090 0091 

0098 0099 

0106 0107 

0114 0115 

0122 0123 

0130 0131 

0138 0139 

0146 0147 

0154 0155 

0162 0163 

0170 0171 

0178 0179 

0188 0187 

0194 0195 

0202 0203 

0210 0211 

0218 0219 

0226 0227 

0234 0235 

0242 0243 

0250 0251 



0068 
0076 
0084 
0092 
0100 
0108 
0116 
0124 

0132 
0140 
0148 
0156 
0164 
0172 
0180 
0188 

0196 
0204 
0212 
0220 
0228 
0238 
0244 
0252 



0069 0070 0071 

0077 0078 0079 

0085 0088 0087 

0093 0094 0095 

0101 0102 0103 

0109 0110 0111 

0117 0118 0119 

0125 0128 0127 



0133 0134 

0141 0142 

0149 0150 

0157 0158 

0165 0166 

0173 0174 

0181 0182 

0199 0190 



013S 
0143 
0151 
0159 
0167 
0175 
0183 
0191 



0197 
0205 
0213 
0221 
0229 
0237 
0245 
0253 



0198 0199 

0206 0207 

0214 0215 

0222 0223 

0230 0231 

0238 0239 

0248 0247 

0254 0255 



1000 
1010 
1020 
1030 
1040 
1050 

itm 

1070 

1100 
1110 
1120 
1130 
1140 
1150 
1160 
1178 

1200 
1210 






1 


2 


3 


4 


5 


6 


7 


051? 


0513 


0514 


0515 


0516 


0517 


0518 


0519 


0570 


0521 


0522 


0523 


0524 


0525 


0526 


0527 


0578 


0529 


0530 


0531 


0532 


0533 


0534 


0535 


0536 


0537 


0538 


0539 


054O 


0541 


0542 


0543 


0544 


0545 


0544 


0547 


0548 


0549 


0550 


0551 


055? 


0553 


0554 


0555 


0556 


0557 


0558 


0559 


0560 


0561 


0562 


0563 


0564 


0565 


0566 


0567 


0588 


0569 


0570 


0571 


0572 


0573 


0574 


0575 


0578 


0577 


0578 


0S79 


0580 


0581 


0582 


0583 


0584 


0585 


0586 


0587 


0588 


0589 


0590 


0591 


0592 


0593 


0594 


0595 


0596 


0597 


0598 


0599 


OfiOfl 


0601 


0602 


0603 


0604 


0605 


0606 


0607 


m» 


0609 


0610 


0611 


0612 


0613 


0614 


0615 


(1616* 


0617 


0618 


0619 


0620 


0621 


0622 


0623 


0674 


0625 


0626 


0627 


0628 


0629 


0630 


0631 


0632 


0633 


0634 


0635 


0638 


0637 


0S38 


0639 


0640 


0641 


0642 


0643 


0644 


0645 


0646 


0647 


0M8 


0649 


0650 


0651 


0652 


0653 


0654 


0655 


0656 


0657 


0658 


0659 


0660 


0661 


0662 


0663 


(1684 


0665 


0668 


0667 


0668 


0669 


0670 


0671 


0672 


GS73 


QS74 


OS 75 


0«75 


nc77 


0678 


057S 



1220 


0656 


0657 


0658 


0659 


0660 


0661 


1230 


0664 


0665 


0668 


0667 


0668 


0669 


12*0 


0672 


GS73 


QS74 


OS 75 


0«75 


OS77 


libu 


tiSeO 


Co8l 


UIMU 


uZZZ 


SES4 


KS5 


1260 


0688 


0689 


0690 


0691 


0692 


0693 


1270 


0696 


0697 


0698 


0699 


0700 


0701 


1300 


0704 


0705 


0706 


0707 


0708 


0709 


1310 


0712 


0713 


0714 


0715 


0716 


0717 


1320 


0720 


0721 


0722 


0723 


0724 


0725 


1330 


0728 


0729 


0730 


0731 


0732 


0733 


1340 


0738 


0737 


0738 


0739 


0740 


0741 


1350 


0744 


0745 


0746 


0747 


0748 


0749 


1360 


0752 


0753 


0754 


0755 


0756 


0757 


1370 


0760 


0761 


0762 


0763 


0764 


0765 



uoob 


G6o7 


0694 


0695 


0702 


0703 


0710 


0711 


0718 


0719 


0728 


0727 


0734 


0735 


0742 


0743 


0750 


0751 


0758 


0759 


0768 


0767 




1 



1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 

1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 

1600 
1610 
1620 
1630 
15*0 
iGSu 
1660 
1670 

1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 



0768 0769 0770 0771 0772 0773 0774 0775 

0776 0777 0778 0779 0780 0781 0782 0783 

0784 0785 0786 0787 0788 0789 0790 0791 

0792 0793 0794 0795 0796 0797 0798 0799 

0800 0801 0802 0803 0804 0805 0808 0807 

0808 0809 0810 0811 0112 0813 0814 0815 

0816 0817 0818 0819 0820 0821 0822 0823 

0824 0825 0826 0827 0828 0829 0830 0831 



0832 0833 

0840 0841 

0848 0849 

0856 0857 

0864 0885 

0872 0873 

0880 0881 

0888 0889 

0896 0897 

0904 0905 

0912 0913 

0920 0921 

0928 0929 

0533 C337 

0944 0945 

0952 0953 

0960 0961 

0968 0969 

0976 0977 

0984 0985 

0992 0993 
1000 1001 
1008 1009 
1016 1017 



0834 0835 

0842 0843 

0850 0851 

0858 0859 

0866 0867 

0874 0875 

0882 0883 

0890 0891 

0898 0899 

0906 0907 

0914 0915 

0922 0923 

0930 0931 

C3Sa Osia 

0948 0947 

0954 0955 

0962 0963 

0970 0971 

0978 0979 

0986 0987 

0994 0995 

1002 1003 

1010 1011 

1018 1019 



0838 0837 

0844 0845 

0852 0853 

0860 0861 

0868 0869 

0876 0877 

0884 0885 

0892 0893 

0900 0901 

0908 0909 

0916 0917 

0924 0925 

0937 0933 

G340 u»i 

0948 0949 

0956 0957 

0964 0965 

0972 0973 

0980 0981 

0988 0989 

0996 0997 

1004 1005 

1012 1013 

1020 1021 



0838 0839 

0848 0847 

0854 0855 

0862 0883 

0870 0871 

0878 0879 

0886 0887 

0894 0895 

0902 0903 

0910 0911 

0918 0919 

0926 0927 

0934 093* 

u342 C34J 

0950 0951 

0958 0959 



0000 


0000 


to 


10 


0777 


0511 


(Oct*) 


lOaoml) 


(kill 


OKMMt 


■MAA4 . 


ino* 



0968 0967 

0974 0975 

0982 0983 

0990 0991 

0998 0999 

1006 1007 

1014 1015 

1022 1023 



Octal 


OKMMt 


• rwwwi 


j no« 


20000 


8192 


30000 


12288 


40000 


11314 


50000 


20480 


60000 


24576 


70000 


28872 



1000 



0512 



1777 1023 

(Octal) (Doornail 



A-15 



OCTAL/ DECIMAL INTEGER CONVERSION TABLE (Cont'd) 



2000 1024 










































O 


1 


2 


3 


4 


5 


6 


7 




O 


1 


2 


3 


4 


5 


6 


7 




2000 


1024 


1025 


1026 


1027 


1028 


1029 


1030 


1031 




2400 


1280 


1281 


1282 


1283 


1284 


1285 


1286 


1287 




10 Ifl 


2010 


1032 


1 033 


1034 


1035 


1036 


1037 


1038 


1039 




2410 


1288 


1289 


1290 


1291 


1292 


1293 


1294 


1295 




2777 1535 


2020 


1040 


I04l 


1042 


1043 


1044 


1045 


1046 


1047 




2420 


12% 


1297 


1298 


1299 


1300 


1301 


1302 


1303 




lOdal) (Decimal) 


20.30 


1048 


1 049 


1050 


1051 


1052 


1053 


1054 


1055 




2430 


1304 


1305 


1306 


1307 


1308 


1309 


1310 


1311 






2040 


1056 


1057 


1058 


1059 


1060 


1061 


1062 


1063 




2440 


1312 


1313 


1314 


1315 


1316 


1317 


1318 


1319 






2050 


1064 


1065 


1066 


106/ 


1068 


1069 


1070 


1071 




2450 


1320 


1321 


1322 


1323 


1324 


1325 


1326 


1327 




Oclat Decimal 


2060 


1072 


1073 


10/4 


10/5 


1076 


1077 


1073 


1079 




2460 


1328 


1329 


1330 


1331 


1332 


1333 


1334 


1335 




10000 4096 


20/0 


1080 


1081 


1082 


1083 


1084 


1085 


1086 


108/ 




2470 


1336 


1337 


1338 


1339 


1340 


1341 


1342 


1343 




2'jnnn 2;32 


2iuu 


iuoo 


iuoj 


;c;c 


iC3» 


iusi 


iubo 


iim 


iuw 




2iCC 


13-M 


"2"5 


t : . s 


,~ 7 


13*.? 


12*9 


"":?. 


!35i 




30000 12288 


2100 


1096 


1097 


1098 


1099 


1100 


1101 


1102 


1103 




2510 


1352 


1353 


1354 


1355 


1356 


1357 


1358 


1359 




40000 16384 


2120 


1104 


1105 


1106 


1107 


1108 


1109 


1110 


1111 




2520 


1360 


1361 


1362 


1363 


1364 


1365 


1366 


1367 




50000 20480 


2130 


1112 


1113 


1114 


1115 


1116 


1117 


1118 


1119 




2530 


1368 


1369 


1370 


1371 


1372 


1373 


1374 


1375 




60000 24576 


2140 


1120 


1121 


1122 


1123 


1124 


1125 


1126 


1127 




2540 


1376 


1377 


1378 


1379 


1380 


1381 


1382 


1383 




70000 286/2 


2150 


1128 


1129 


1130 


1131 


1132 


1133 


1134 


1135 




2550 


1384 


1385 


1386 


1387 


1388 


1389 


1390 


1391 






2160 


1136 


1137 


1138 


1139 


1140 


1141 


1142 


1143 




2560 


1392 


1393 


1394 


1395 


1396 


1397 


1398 


1399 






2170 


1144 


1145 


1146 


1147 


1148 


1149 


1150 


1151 




2570 


1400 


1401 


1402 


1403 


1404 


1405 


1406 


1407 






2200 


1152 


1153 


1154 


1155 


1156 


1157 


1158 


1159 




2600 


1408 


1409 


1410 


1411 


1412 


1413 


1414 


1415 






2210 


1160 


1161 


1162 


1163 


1164 


1165 


1166 


1167 




2610 


1416 


1417 


1418 


1419 


1420 


1421 


1422 


1423 






2220 


1168 


1169 


1170 


1171 


1172 


1173 


1174 


1175 




2620 


1424 


1425 


1426 


1427 


1428 


1429 


1430 


1431 






2230 


1 i 76 


i 1 77 


i 1 78 


1 1 79 


MHO 


iigi 


1182 


i 183 




2630 


1432 


1433 


1434 


UJb 


UJ6 


1437 


1438 


1439 






2240 


1184 


1185 


1186 


1187 


1188 


1189 


1190 


1191 




2640 


1440 


1441 


1442 


1443 


1444 


1445 


1446 


1447 






2250 


1192 


1193 


1194 


1195 


1196 


1197 


1198 


1199 




2650 


1448 


1449 


1450 


1451 


1452 


1453 


1454 


1455 






2260 


1200 


1201 


1202 


1203 


1204 


1205 


1206 


1207 




2660 


1456 


1457 


1458 


1459 


1460 


1461 


1462 


1463 






2270 


1208 


1209 


1210 


1211 


1212 


1213 


1214 


1215 




2670 


1464 


1465 


1466 


1467 


1468 


1469 


1470 


1471 






2300 


1216 


1217 


1218 


1219 


1220 


1221 


1222 


1223 




2700. 


1472 


1473 


1474 


1475 


1476 


1477 


1478 


1479 






2310 


1224 


1225 


1226 


1227 


1228 


1229 


1230 


1231 




2710 


1480 


1481 


1482 


1483 


1484 


1485 


I486 


148/ 






2320 


1232 


1233 


1234 


1235 


1236 


1237 


1238 


1239 




2720 


1488 


1489 


1490 


1491 


1492 


1493 


1494 


1495 






2330 


1240 


1241 


1242 


1243 


1244 


1245 


1246 


1247 




2730 


1496 


1497 


1498 


1499 


1500 


1501 


1502 


1503 






2340 


1248 


1249 


1250 


1251 


1252 


1253 


1254 


1255 




2740 


1504 


1505 


1506 


150/ 


1508 


1519 


1510 


1511 






2350 


1256 


1257 


1258 


1259 


1260 


1261 


1262 


1263 




2750 


1512 


1513 


1514 


1515 


1516 


.1517 


1518 


1519 






2360 


1264 


1265 


1266 


1267 


1268 


1269 


1270 


1271 




2760 


1520 


1521 


1522 


1523 


1524 


1525 


1526 


152/ 






2370 


1272 


1273 


1274 


1275 


1276 


1277 


1278 


1279 




2770 


1528 


1529 


1530 


1531 


1532 


1533 


1534 


1535 




3000 1536 




O 


1 


2 


3 


4 


5 


6 • 


7 









1 


2 


3 


4 


S 


6 


7 




3000 


1536 


1537 


1538 


1539 


1540 


1541 


1542 


1543 




3400 


1792 


1793 


1794 


1/95 


1796 


1/97 


1798 


1/99 


lo to 


3010 


1544 


1545 


1546 


1547 


1548 


1549 


1550 


1551 




3410 


1800 


1801 


1802 


1803 


1804 


1805 


1806 


180/ 




3777 2047 


3020 


1552 


1553 


1554 


1555 


1556 


1557 


1558 


1559 




3420 


1808 


1809 


1810 


1811 


1812 


1813 


1814 


1815 




(Octal) IDecimaO 


3030 


1560 


1561 


1562 


1563 


1564 


1565 


1566 


1567 




3430 


1816 


1817 


1818 


1819 


1820 


1821 


1822 


1823 






3040 


1568 


1569 


1570 


1571 


1572 


1573 


1574 


1575 




3440 


1B24 


1825 


1826 


1827 


1828 


1829 


1830 


1831 






3050 


1576 


1577 


15/8 


1579 


1580 


1531 


1582 


1583 




3450 


1832 


1833 


1834 


1835 


1836 


1837 


1838 


1839 






3060 


1584 


1585 


1586 


1587 


1588 


1589 


1590 


1591 




3460 


1840 


1841 


1842 


1843 


ie44 


1845 


1846 


184/ 






3070 


1592 


1593 


1594 


1595 


1596 


159/ 


1598 


1599 




3470 


1848 


1849 


1850 


1851 


1852 


1853 


1854 


1855 






3100 


1600 


1601 


1602 


1603 


1604 


1605 


1606 


1607 




3500 


1856 


1857 


1858 


1859 


1860 


1861 


1862 


1863 






3110 


1608 


1609 


1610 


1611 


1612 


1613 


1614 


1615 




3510 


1864 


1865 


1866 


1867 


1868 


1869 


18/0 


18/1 






3120 


1616 


1617 


1618 


1619 


1620 


1621 


1622 


1623 




3520 


1872 


1873 


1874 


1875 


1876 


1877 


1878 


18/9 






3130 


1624 


1625 


1626 


1627 


1628 


1629 


1630 


1631 




3530 


1880 


1881 


1882 


1883 


1884 


1885 


1886 


188/ 






3140 


1632 


1633 


1634 


1635 


1636 


163/ 


1638 


1639 




3540 


IB88 


1889 


1890 


1891 


1892 


1893 


1894 


1895 






3150 


1640 


1641 


1642 


1643 


1644 


1645 


1646 


1647 




3550 


1896 


1897 


1898 


1899 


1900 


1901 


1902 


1903 






3160 


1648 


1549 


1650 


1651 


1652 


1653 


1654 


1655 




3560 


1904 


1905 


1906 


1907 


1908 


1909 


1910 


1911 






3170 


1656 


1657 


1658 


1659 


1660 


1661 


1662 


1663 




3570 


1912 


1913 


1914 


1915 


191S 


1917 


1918 


1919 






3200 


1664 


1665 


1666 


166/ 


1668 


1669 


1670 


1671 




3600 


1920 


1921 


1922 


1923 


1924 


1925 


1926 


1927 






3210 


1672 


1S73 


1674 


1875 


1676 


1677 


1678 


1679 




3610 


1928 


1929 


1930 


1931 


1932 


1933 


1934 


1935 






3220 


1680 


1681 


1682 


' 1683 


1684 


1685 


1686 


1687 




3620 


1936 


1937 


1938 


1939 


1940 


1941 


1942 


1943 






3230 


1688 


1689 


1690 


1691 


1692 


1693 


1694 


1695 




3630 


1944 


1945 


1946 


1947 


1948 


1949 


1950 


1951 






3240 


1696 


1697 


1698 


1699 


1700 


1701 


1702 


1703 




3640 


1952 


1953 


1954 


1955 


1956 


1957 


1958 


1959 






3'W 


WA 


:7n r , 


■ 7 C5 


T7C7 


: ?C3 


17G3 


!? :C 


l)!| 




.IKSfl 


i?sn 


'^5! 


13S2 


<0C3 


i^E* 


joci 


'OSS 


1"S7 






3260 


1712 


1/13 


1714 


1715 


1716 


1717 


1718 


1719 




3660 


1968 


1969 


1970 


1971 


19/2 


1973 


19/4 


1975 






3270 


1720 


1/21 


1722 


1723 


1/24 


1/25 


1726 


1727 




3670 


1976 


19/7 


1978 


1979 


1980 


1981 


1982 


1983 






3300 


1/28 


1/29 


1730 


1731 


1732 


1733 


1734 


1735 




3/00 


1984 


1985 


1986 


1987 


1988 


1989 


1990 


1991 






3310 


1736 


173/ 


1/38 


1/39 


1740 


1/41 


1742 


1743 




3710 


1992 


1993 


1994 


1995 


1996 


1997 


1998 


1999 






3320 


1744 


1/45 


1/46 


174/ 


1/48 


1/49 


1750 


1/51 




3720 


2000 


2001 


2002 


2003 


2004 


2005 


2006 


2007 






3330 


1752 


1/53 


1/54 


1/55 


1756 


1757 


1758 


1759 




3730 


2008 


2009 


2010 


2011 


2012 


2013 


2014 


2015 






3340 


1760 


1/61 


1/62 


1/63 


1/64 


1765 


1766 


1767 




3740 


2016 


2017 


2018 


2019 


2020 


2021 


2022 


2023 






3350 


1768 


1769 


1/70 


I//1 


1/72 


1773 


1774 


1775 




3750 


2024 


2025 


2026 


2027 


2028 


2029 


,2030 


2031 






3360 


1776 


1/77 


1778 


1779 


1780 


1781 


1782 


1783 




3760 


2032 


2033 


2034 


2035 


2036 


2037 


2038 


2039 






3370 


1784 


1785 


1786 


178/ 


1/88 


1789 


1790 


1791 




37/0 


2040 


2041 


2042 


2043 


2044 


2045 


2046 


2047 













































A-16 



OCTAL/ DECIMAL INTEGER CONVERSION TABLE (Cont'd) 











































4000 2048 









1 


2 


3 


4 


5 


6 


7 







1 


2 


3 


4 


5 


6 


7 




4000 


2048 


2049 


2050 


2051 


2052 


2053 


2054 


2055 




4400 


2304 


2305 


2306 


2307 


2308 


2309 


2310 


2311 




4010 


2056 


2057 


2058 


2059 


2060 


2061 


2062 


2063 




4410 


2312 


2313 


2314 


2315 


2316 


2317 


2318 


2319 


lo lo 




«020 


2064 


2065 


2066 


2067 


2068 


2069 


2070 


2071 




4420 


2320 


2321 


2322 


2323 


2324 


2325 


2326 


2327 


4777 2559 
(Octal) (OecinuO 




4030 


2072 


2073 


2074 


2075 


2076 


2077 


2078 


2079 




4430 


2328 


2329 


2330 


2331 


2332 


2333 


2334 


2335 




4040 


2080 


2081 


2082 


2083 


2084 


2085 


2086 


2087 




4440 


2336 


2337 


2338 


2339 


2340 


2341 


2342 


2343 




4050 


2088 


2089 


2030 


2031 


2032 


2033 


2034 


2035 




4450 


2344 


2345 


2346 


2347 


2346 


2343 


235G 


2351 






4060 


2096 


2097 


2098 


2099 


2100 


2101 


2102 


2103 




4460 


2352 


2353 


2354 


2355 


2356 


2357 


2358 


2359 






4070 


2104 


2105 


2106 


2107 


2108 


2109 


2110 


2111 




4470 


2360 


2361 


2362 


2363 


2364 


2365 


2366 


2367 


Octal Qacinul 




4100 


2112 


2113 


2114 


2115 


2116 


2117 


2118 


2119 




4500 


2368 


2369 


2370 


2371 


2372 


2373 


2374 


2375 


20000 - 8192 




4110 


2120 


2121 


2122 


2123 


2124 


2125 


2126 


2127 




4510 


2376 


2377 


2378 


2379 


2380 


2381 


2382 


2383 


30000 12288 
40000-16384 




4120 


2128 


2129 


2130 


2131 


2)32 


2133 


2134 


2135 




4520 


2384 


2385 


2386 


2387 


2388 


2389 


2390 


2391 




4130 


2136 


2137 


2138 


2139 


2140 


2141 


2142 


2143 




4530 


2392 


2393 


2394 


2395 


2396 


2397 


2398 


2399 




4140 


2144 


2145 


2146 


2147 


2148 


2149 


2150 


2151 




4540 


2400 


2401 


2402 


2403 


2404 


2405 


2406 


2407 


50000 20480 




4150 


2152 


2153 


2154 


2155 


2156 


2157 


2158 


2159 




4550 


2408 


2409 


2410 


2411 


2412 


2413 


2414 


2415 


60000 ■ 24578 




4160 


2160 


2161 


2162 


2163 


2164 


2165 


2166 


2167 




4560 


2416 


2417 


2418 


2419 


2420 


2421 


2422 


2423 


70000 ■ 28672 




41/0 


2168 


2169 


2170 


2171 


2172 


2173 


2174 


2175 




4570 


2424 


2425 


2426 


2427 


2428 


2429 


2430 


2431 






4200 


2176 


2177 


2178 


2179 


2180 


2181 


2182 


2183 




4600 


2432 


2433 


2434 


2435 


2436 


2437 


2438 


2439 






4210 


2184 


2185 


2186 


2187 


2188 


2189 


2190 


2191 




4610 


2440 


2441 


2442 


2443 


2444 


2445 


2446 


2447 






4220 


2192 


2193 


2194 


2195 


21% 


2197 


2198 


2199 




4620 


2448 


2449 


2450 


2451 


2452 


2453 


2454 


2455 






4230 


2200 


2201 


2202 


2203 


2204 


2205 


2206 


2207 




4630 


2456 


2457 


2458 


2459 


2460 


2461 


2462 


2463 






4240 


2208 


2209 


2210 


2211 


2212 


2213 


2214 


2215 




4640 


2464 


2485 


2466 


2467 


2468 


2469 


2470 


2471 






4250 


2216 


2217 


2218 


2219 


2220 


2221 


2222 


2223 




4650 


2472 


2473 


2474 


2475 


2476 


2477 


2478 


2479 






4260 


2224 


2225 


2226 


2227 


2228 


2229 


2230 


2231 




4660 


2480 


2481 


2482 


2483 


2484 


2485 


2486 


2487 




■ 


4270 


2232 


2233 


2234 


2235 


2236 


2237 


2238 


2239 




4670 


2488 


2489 


2490 


2491 


2492 


2493 


2494 


2495 






4300 


2240 


2241 


2242 


2243 


2244 


2245 


2246 


2247 




4700 


2496 


2497 


2498 


2499 


2500 


2501 


2502 


2503 






4310 


2248 


2249 


2250 


2251 


2252 


2253 


2254 


2255 




4710 


2504 


2505 


2506 


2507 


2508 


2509 


2510 


2511 






4320 


2256 


2257 


2258 


2259 


2260 


2261 


2262 


2263 




4720 


2512 


2513 


2514 


2515 


2516 


2517 


2518 


2519 






4330 


2264 


2265 


2266 


2267 


2268 


2269 


2270 


2271 




4730 


2520 


2521 


2522 


2523 


2524 


2525 


2526 


2527 






4340 


2272 


2273 


2274 


2275 


2276 


2277 


227S 


2279 




4740 


2528 


2529 


2530 


2531 


2532 


2533 


2534 


2535 






4350 


2280 


2281 


2282 


2283 


2284 


2285 


2286 


2287 




4750 


2536 


2537 


2538 


2539 


2540 


2541 


2542 


2543 






4360 


2288 


2289 


2290 


2291 


2292 


2293 


2294 


2295 




4760 


2544 


2545 


2546 


2547 


2548 


2549 


2550 


2551 






4370 


2296 


2297 


2298 


2299 


2300 


2301 


2302 


2303 




4770 


2552 


2553 


2554 


2555 


2556 


2557 


2568 


2559 











1 


2 


3 


4 


5 


6 


7 









1 


2 


3 


4 


S 


6 


7 


5000 2560 




5000 


2560 


2561 


2562 


2563 


2564 


2565 


2566 


2567 




5400 


2816 


2817 


2818 


2819 


2820 


2821 


2822 


2823 




5010 


2568 


2569 


2570 


2571 


2572 


2573 


2574 


2575 




5410 


2824 


2825 


2826 


2827 


2828 


2829 


2830 


2831 


10 lo 
5777 3071 




5020 


2576 


2577 


2578 


2579 


2580 


2581 


2582 


2583 




5420 


2832 


2833 


2834 


2835 


2836 


2837 


2838 


2839 




5030 


2584 


2585 


2586 


2587 


2588 


2589 


2590 


2591 




5430 


2840 


2841 


2842 


2843 


2844 


2845 


2846 


2847 




5040 


2592 


2593 


2594 


2595 


2596 


2597 


2598 


2599 




5440 


2848 


2849 


2850 


2851 


2852 


2853 


2854 


2855 


(Octal! (Oecimall 




5050 


2600 


2601 


2602 


2603 


2604 


2605 


2606 


2607 




5450 


2856 


2857 


2858 


2859 


2860 


2861 


2862 


2863 






5060 


2608 


2609 


2610 


2611 


2612 


2613 


2614 


2615 




5460 


2864 


2865 


2866 


2867 


2868 


2869 


2870 


2871 






5070 


2616 


2617 


2618 


2619 


2620 


2621 


2622 


2623 




5470 


2872 


2873 


2874 


2875 


2876 


2877 


2878 


2879 






5100 


2624 


2625 


2626 


2627 


2628 


2629 


2630 


2631 




5500 


2880 


2881 


2882 


2883 


2884 


2885 


2886 


2887 






5110 


2632 


2633 


2634 


2635 


2636 


2637 


2638 


2639 




5510 


2888 


2889 


2890 


2891 


2892 


2893 


2894 


2895 






5120 


2640 


2641 


2642 


2643 


2644 


2645 


2646 


2647 




5520 


2896 


2897 


2898 


2899 


2900 


2901 


2902 


2903 






5130 


2648 


2649 


2650 


2651 


2652 


2653 


2654 


2655 




5530 


2904 


2905 


2906 


2907 


2908 


2909 


2910 


2911 






5140 


28J6 


2657 


2658 


2659 


2660 


2661 


2662 


2663 




5540 


2912 


2913 


2914 


2915 


2916 


2917 


2918 


2919 






5150 


2664 


2665 


2666 


2667 


2668 


2669 


2670 


2671 




5550 


2920 


2921 


2922 


2923 


2924 


2925 


2926 


2927 






5160 


2672 


2673 


2674 


2675 


2676 


2677 


2678 


2679 




5560 


2928 


2929 


2930 


2931 


2932 


2933 


2934 


2935 






5^ 70 


2680 


2681 


2682 


2683 


2684 


2685 


2686 


2687 




5570 


2936 


2937 


2938 


2939 


2940 


2941 


2942 


2943 






5200 


2688 


2689 


2690 


2691 


2692 


2693 


2694 


2695 




5600 


2944 


2945 


2946 


2947 


2948 


2949 


2950 


2951 






5210 


2696 


2697 


2698 


2699 


2700 


2701 


2702 


2703 




5610 


2952 


2953 


2954 


2955 


2956 


2957 


2958 


2959 






522U 


2704 


2705 


2706 


2707 


2708 


2709 


2710 


2711 




5620 


2960 


2961 


2962 


2963 


2964 


2965 


2966 


2967 






5230 


2712 


2713 


2714 


2715 


2716 


2717 


2718 


2719 




5630 


2968 


2969 


2970 


2971 


2972 


2973 


2974 


2975 






•W~< 


97 ?0 


???! 


~''<T' 


''23 


27"? •* 


2?:-5 


2775 


W 




^040 


;-373 


297? 


257? 


~'V3 


JSSB 


'~V. 


?«? 


'993 






5250 


2728 


2729 


2730 


2731 


2732 


2733 


2734 


2735 




5650 


2984 


2985 


2986 


2987 


2988 


2989 


2990 


2991 






5260 


2736 


2737 


2738 


2739 


2740 


2741 


2742 


2743 




5660 


2992 


2993 


2994 


2995 


2996 


2997 


2998 


2999 






5270 


2744 


2745 


2746 


2747 


2748 


2749 


2750 


2751 




5670 


3000 


3001 


3002 


3003 


3004 


3O05 


3006 


3007 






5300 


2752 


2753 


2754 


2755 


2756 


2757 


2758 


2759 




5700 


3008 


3009 


3010 


3011 


3012 


3C13 


3014 


3015 






5310 


2760 


2761 


2762 


2763 


2764 


2765 


2766 


2767 




5710 


3016 


3017 


3018 


30<9 


3020 


3021 


3022 


3023 






5320 


2768 


2769 


2770 


2771 


2772 


2773 


2774 


2775 




5720 


3024 


3025 


3026 


3027 


3028 


3029 


3030 


3031 






5330 


2776 


2777 


2778 


2779 


2780 


2731 


2782 


2783 




5730 


3032 


3033 


3034 


3035 


3036 


3037 


3038 


3039 






5340 


2784 


2785 


2786 


2787 


2788 


2789 


2790 


2791 




5740 


3040 


3041 


3042 


3043 


3044 


3045 


3046 


3047 






5350 


2792 


2793 


2794 


2795 


2796 


2797 


2798 


2799 




5750 


3048 


3049 


3050 


3051 


3052 


3053 


3054 


3055 






5360 


2800 


2801 


2802 


2803 


2804 


2805 


2806 


2807 




5760 


3056 


3057 


3058 


3059 


3060 


3061 


3062 


3063 






5370 


2808 


2809 


2810 


2811 


2812 


2813 


2814 


2815 




5770 


3064 


3065 


3066 


3067 


3068 


3069 


3070 


3071 











































A-17 



OCTAL/ DECIMAL INTEGER CONVERSION TABLE (Cont'd) 



6000 3072 








































O 


1 


2 3 


4 


5 


6 


7 




O 


1 


2 


3 


4 


5 


6 


7 




6000 


3072 


3073 


30/4 3075 


3076 


307/ 


3078 


30/9 




6400 


3328 


3329 


3330 


3331 


3332 


3333 


3334 


3335 


to to 


6010 


3080 


3081 


3082 3083 


3084 


3085 


3086 


308/ 




6410 


3336 


333/ 


3338 


3339 


3340 


3341 


3342 


3343 




6/77 3583 


6020 


3088 


3089 


3090 3091 


3092 


3093 


3094 


3095 




6420 


3344 


3345 


3346 


3347 


3348 


3349 


3350 


335 1 




(Octal) (Decimall 


5030 


3096 


3097 


3098 3099 


3100 


3101 


3102 


3103 




6430 


3352 


3353 


3354 


3355 


3356 


3357 


3358 


3359 




6040 


3104 


3105 


3106 3107 


3109 


3109 


3110 


3111 




6440 


3360 


3361 


3362 


3363 


3364 


3365 


3366 


336/ 






6050 


3112 


3113 


3114 3115 


3116 


311/ 


3118 


3119 




6450 


3368 


3369 


3370 


3371 


3372 


3373 


3374 


3375 






6060 


3120 


3121 


3122 3123 


3124 


3125 


3126 


312/ 




6460 


33/6 


33/7 


3378 


3379 


3380 


3381 


3382 


3383 




Octal Oecimal 


6070 


3128 


3129 


3130 3131 


3132 


3133 


3134 


3135 




64/0 


3384 


3385 


3386 


3387 


3388 


3389 


3390 


339 1 




20000 8192 


6100 


3136 


3137 


3138 3139 


3140 


3141 


3142 


3I4j 




6500 


3392 


3393 


3394 


3395 


3396 


3397 


3398 


3399 




30000 12288 


6110 


3144 


3145 


3146 3147 


3148 


3149 


3150 


3151 




6510 


3400 


3401 


3402 


3403 


3404 


3405 


3406 


340/ 




40000 163S4 
50000 20480 


6120 


3152 


3153 


3154 3155 


3156 


3157 


3158 


3159 




6520 


3408 


3409 


3410 


3411 


3412 


3413 


34I4 


3415 




6130 


3160 


3161 


3162 3163 


3164 


3165 


3166 


316/ 




6530 


3416 


3417 


3418 


3419 


3420 


3421 


3422 


3423 




6140 


3168 


3169 


31/0 31/1 


3172 


3173 


31/4 


31/5 




6540 


3424 


3425 


3426 


3427 


3423 


3429 


3430 


3431 




60000 - 24576 


6150 


3176 


3177 


31/8 3179 


3180 


3181 


3182 


3133 




6550 


3432 


3433 


3434 


3435 


3436 


3437 


3438 


3439 




70000 28672 


6160 


3184 


3185 


3186 3187 


3188 


3189 


3190 


3191 




6560 


3440 


3441 


3442 


3443 


3444 


3445 


3446 


344/ 






6170 


3192 


3133 


3194 3195 


3196 


3197 


3198 


3199 




6570 


3448 


3449 


3450 


3451 


3452 


3453 


3454 


3455 






6200 


3200 


3201 


3202 3203 


3204 


3205 


3206 


3207 




6600 


3456 


3457 


3458 


3459 


3460 


3461 


3462 


3463 






6210 


3208 


3209 


3210 3211 


3212 


3213 


3214 


3215 




6610 


3464 


3465 


3466 


3467 


3468 


3469 


3470 


3471 






6220 


3216 


3217 


3218 3219 


3220 


3221 


3222 


3223 




6620 


3472 


3473 


3474 


3475 


3476 


3477 


3478 


3479 






6230 


3224 


3225 


3226 3227 


3228 


3229 


3230 


3231 




6630 


3480 


3481 


3482 


3483 


3484 


3485 


3486 


3487 






6240 


3232 


3233 


3234 3235 


3236 


3237 


3238 


3239 




6640 


3488 


3489 


3490 


3491 


3492 


3493 


3494 


3495 






6250 


3240 


3241 


3242 3243 


3244 


3245 


3246 


3247 




6650 


3496 


3497 


3498 


3499 


3500 


3501 


3502 


3503 






6260 


3248 


3249 


3250 3251 


3252 


3253 


3254 


3255 




6660 


3504 


3505 


3506 


3507 


3508 


3509 


3510 


3511 






6270 


3256 


3257 


3258 3259 


3260 


3261 


3262 


3263 




6670 


3512 


3513 


3514 


3515 


3516 


3517 


35I8 


3519 






6300 


3264 


3265 


3266 3267 


3268 


3269 


3270 


3271 




6700 


3520 


3521 


3522 


3523 


3524 


3525 


3526 


3527 






6310 


3272 


3273 


3274 3275 


3276 


3277 


3278 


3279 




6710 


3528 


3529 


3530 


3531 


3532 


3533 


3534 


3535 






6320 


3280 


3281 


3292 3283 


3284 


3285 


3286 


3287 




6720 


3536 


3537 


3538 


3539 


3540 


3541 


3542 


3543 






6330 


3288 


3289 


3290 3291 


3292 


3293 


3294 


3295 




6730 


3544 


3545 


3546 


3547 


3548 


3549 


3550 


3551 






6340 


32% 


3297 


3298 3299 


3300 


3301 


3302 


3303 




6740 


3552 


3553 


3554 


3555 


3556 


3557 


3558 


3559 






6350 


3304 


3305 


3306 330/ 


3308 


3309 


3310 


3311 




6750 


3560 


3561 


3562 


3563 


3564 


3565 


3566 


3567 






6360 


3312 


3313 


3314 3315 


3316 


3317 


3318 


3319 




6760 


3568 


3569 


3570 


3571 


3572 


3573 


3574 


3575 






6370 


3320 


3321 


3322 3323 


3324 


3325 


3326 


3327 




6770 


3576 


3577 


3578 


3579 


358U 


3581 


3582 


3583 




7000 3584 




O 


1 


2 3 


4 


5 


6 


7 






O 


1 


2 


3 


4 


5 


6 


7 




7000 


3584 


3585 


3586 3587 


3588 


3589 


3590 


3591 




7400 


3840 


3841 


3842 


3843 


3844 


3845 


3846 


3847 


to to 


70 tO 


3592 


3593 


3594 3595 


3496 


3497 


3598 


3599 




7410 


3848 


3849 


3850 


3851 


3852 


3853 


3854 


3855 




7777 4095 


7020 


3600 


3601 


3602 3603 


3604 


3605 


3606 


3607 




7420 


3856 


3857 


3858 


3859 


3860 


3861 


3862 


3863 




lOctat) (OecimaO 


7030 


3608 


3609 


3610 3611 


3612 


3613 


3614 


3615 




7430 


3864 


3865 


3866 


3867 


3868 


3869 


3870 


3871 




7040 


3616 


3617 


3618 3619 


3620 


3621 


3622 


3623 




7440 


3872 


3873 


3874 


3875 


3876 


3877 


3878 


3879 






7050 


3624 


3625 


3626 3627 


3628 


3629 


3630 


3631 




7450 


3880 


3881 


3882 


3883 


3884 


3885 


3886 


388/ 






7060 


3632 


3633 


3634 3635 


3636 


3637 


3638 


3639 




7460 


3888 


3889 


3890 


3891 


3892 


3893 


3894 


3895 






7070 


3640 


3641 


3642 3643 


3644 


3645 


3646 


3647 




7470 


3896 


3897 


3898 


3899 


3900 


3901 


3902 


3903 






7100 


3648 


3649 


3650 3651 


3652 


3653 


3654 


3655 




7500 


3904 


3905 


3906 


3907 


3908 


3909 


39I0 


3911 






7110 


3656 


3657 


3658 3659 


3660 


3661 


3662 


3663 




7510 


3912 


3913 


3914 


3915 


3916 


3917 


39 18 


3919 






7.120 


J664 


3665 


3666 3667 


3668 


3669 


3670 


3671 




7520 


3920 


3921 


3922 


3923 


3924 


3925 


3926 


3927 






7130 


3672 


3673 


3674 3675 


3676 


3677 


3678 


3679 




7530 


3928 


3929 


3930 


3931 


3932 


3933 


3934 


3935 






7140 


3680 


3681 


3682 3683 


3684 


3685 


3686 


3687 




7540 


3936 


3937 


3938 


3939 


3940 


3941 


3942 


3943 






7150 


3688 


3689 


3690 3691 


3692 


3693 


3694 


3695 




7550 


3944 


3945 


3946 


3947 


3948 


3949 


3950 


3951 






7160 


3696 


3697 


3698 . 3699 


3700 


3701 


3702 


3703 




7560 


3952 


3953 


3954 


3955 


3956 


3957 


3958 


3959 






7170 


3704 


3/05 


3706 3707 


3708 


3709 


3710 


3711 




7570 


3960 


3961 


3962 


3963 


3964 


3965 


3966 


3967 






7200 


3712 


3713 


3714 3715 


3716 


3717 


3718 


3719 




7600 


3968 


3969 


*3970 


3971 


3972 


3973 


39/4 


3975 






7210 


3720 


3721 


3722 3723 


3724 


3725 


3726 


3727 




7610 


3976 


3977 


3978 


3979 


3980 


3981 


3982 


3983 






7220 


3728 


3729 


3730 3731 


3732 


3733 


3734 


3735 




7620 


3984 


3985 


3986 


3937 


3988 


3989 


3990 


3991 






7230 


3736 


373/ 


3/38 3739 


3/40 


3741 


3/42 


3/43 




7630 


3992 


3993 


3994 


3995 


3996 


399/ 


3998 


3999 






7?»'J 


T?»i 


3?'!5 


27;G 274.' 


37:5 


j7*,3 


3?iii 


37a i 


JM3 


4CG3 


•"Q3I 


'.0-32 


*303 


•*GCW 


4C05 


'"55 


'Vil 






7250 


3752 


3753 


3/54 3/55 


3/56 


3757 


3/58 


3759 




7650 


4008 


4009 


4010 


4011 


4012 


4013 


40I4 


4015 






7260 


3760 


3761 


3762 • 3763 


3/64 


3765 


3/66 


3/67 




7660 


4016 


4017 


4018 


4019 


4020 


4021 


4022 


4023 






7270 


3768 


3/69 


37/0 3771 


37/2 


3773 


3//4 


37/5 




7670 


4024 


4025 


4026 


4027 


4028 


4029 


4030 


4031 






7300 


3776 


377/ 


3778 37/9 


3780 


3781 


3782 


3783 




7700 


4032 


4033 


4034 


4035 


4036 


4037 


4038 


4039 






7310 


3784 


3/85 


3786 3787 


3788 


3789 


3/90 


3791 




7710 


4040 


4041 


4042 


4043 


4044 


4045 


4046 


4047 






7320 


3792 


3793 


3794 3795 


3796 


3797 


3798 


3799 




7720 


4048 


4049 


4050 


4051 


4052 


4053 


4054 


4055 






7330 


3800 


3801 


3802 3803 


3804 


3805 


3806 


3807 




7730 


4056 


4057 


4058 


4059 


4060 


4061 


4062 


4Q63 






7340 


3808 


3809 


3810 3811 


3812 


3813 


3814 


3815 




7740 


4064 


4065 


4066 


4067 


4068 


4069 1 


4070 


4071 






7350 


3816 


3817 


3818 3819 


3820 


3821 


3822 


3823 




7750 


4072 


4073 


4074 


4075 


4076 


4077 


4078 


4079 






7360 


3824 


3825 


3826 3827 


3828 


3829 


3830 


3831 




7760 


4080 


4081 


4082 


4083 


4084 


4085 


4086 


4087 






7370 


3832 


3833 


3834 3835 


3836 


3837 


3838 


3839 




7770 


4088 


4089 


4090 


4091 


4092 


4093 


4094 


4095 
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TABLE G 



Powers of Two 



n 



1 





2 


I 


4 


2 


8 


3 


16 


4 


32 


5 


64 


6 


128 


7 


256 


8 


512 


9 


1024 


10 


2048 


11 


4096 


12 


8192 


13 


16384 


14 


32768 


15 


65536 


16 


131072 


17 


262144 


18 


524288 


19 


1048576 


20 


2097152 


21 


4\94304 


22 


8388608 


23 


16777216 


24 


33554432 


25 




26 


134217728 


27 


268435456 


28 


536870912 


29 


1073741824 


30 


2147483648 


31 


4294967296 


32 


8589934592 


33 


17179869184 


34 


34359738368 


35 


68719^76736 


36 


137438953472 


37 


274877906944 


38 


549755813888 


39 


1099511627776 


40 


2199023255552 


41 


4398046511104 


42 


8796093022208 


43 


17592186044416 


44 


35184372088832 


45 


70368744177664 


46 


140737488355328 


47 


2814749T6TI0656 


48 


562949953421312 


49 


11258999Q6842624 


50 



,-n 



1.0000000000000000 

§5000000000000000 

•2500000000000000 

•1250000000000000 

•0625000000000000 

•0312500000000000 

•0156250000000000 

•0078125000000000 

•0039062500000000 

.0019531250000000 

.0009765625000000 

•0004882812500000 

.0002441406250000 

•0001220703125000 

.0000610351562500 

•0000305175781250 
1.525878906250000000000 00 00000*05 
7. 62939453125000000000000 000-06 
3.814697265625000QOOOOOOOOOOOD-06 

1.9073486328125000000000 000000-06 
9.536743164062500000000000000D-07 
4. 7683715820312500000000000000-07 
2. 384185791 0156250000000000000-07 
1. 1920928955078125000000000000-07 
5. 9604644775390625000000000 000-08 
2.980232238769531250000000 0000-08 
1.4901161193847656250000000 000-08 
7. 4505805969238281250000000000-09 
3.725290298461914062500000000D-09 
1.8626451492309570312500000000-09 
9.3132257461547851562500000000-10 
4. 6566128730773925781250000000-10 
2. 3283064365386962890625000000-10 
1.1641532182693481445312500000-10 
5.8207660913467407226562500000-11 
2.910383045673370361 328125000O-H 
1. 455191522836685180664062500D-U 
7. 2759576141834259033203125000-12 
3.637978807091712951660 1562500-12 
1.8189894035458564758300781250-12 
9,0949470177292823791503906250-13 
4,547473508864641 1895751953130-13 
2.2737367544323205947875976560-13 
1.1368683772161602973937988280-13 
5,68434188608080 14869689941410-14 
2.8421709430404007434844970700-14 
1.4210854715202003717422485350-14 
7.1054273576010018587112426760-15 
3 •SSefl 3*7«B0050fr9293556£t 3380- 1 5 
1 •7763568394002504646778106690-15 
8,8817841970012523233890533450-16 
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TABLE 


H ( 


FORTRAN 




Source 




Card 


Language 


Display 


Punch 


Character 


Code 


Code 


A 


01 


12-1 


B 


02 


12-2 


C 


03 


12-3 


D 


04 


12-4 


E 


05 


12-5 


F 


06 


12-6 


G 


07 


12-7 


H 


10 


12-8 


I 


11 


12-9 


J 


12 


11-1 


K 


13 


11-2 


L 


14 


11-3 


M 


15 


11-4 


N 


16 


11-5 





17 


11-6 


P 


20 


11-7 





21 


11-8 


R 


22 


11-9 


S 


23 


0-2 


T 


24 


0-3 


U 


25 


0-4 


V 


26 


0-5 


w 


27 


0-6 


X 


30 


0-7 


Y 


31 


0-8 


Z 


32 


0-9 





33 





1 


34 


1 


2 


35 


2 


3 


36 


3 


4 


37 


4 


5 


40 


5 


6 


41 


6 


7 


42 


7 


8 


43 


8 


9 


44 


9 



6000 SERIES CHARACTER CODES 



FORTRAN 



Source 




Card 


Language 


Display 


Punch 


Character 


Code 


Code 


+ 


45 


12 


- 


46 


11 


* 


47 


11-8-4 


/ 


50 


0-1 


( 


51 


0-8-4 


) 


52 


12-8-4 


$ 


53 


11-8-3 


= 


54 


8-3 


blank(space 


55 


space 


» 


56 


0-8-3 


• 


57 


12-8-3 


Additional 






Printer 






Characters 






= 


60 


0-8-6 


r 


61 


8-7 


] 


62 


0-8-2 


: 


63 


8-2 


* 


64 


8-4 


r* 


65 


0-8-5 


y 


66 


11-0 


A 


67 


0-8-7 


t 


70 


■' 11-8-5 


+ 


71 


11-8-6 


< 


72 


12-0 


> 


73 


11-8-7 


£ 


74 


8-5 


S 


75 


12-8-5 


—i 


76 


12-8-6 


j 


77 


12-8-7 


not used 


00 





Display codes are the octal codes stored in central memory to represent 
the above characters. Those characters which are not in the FORTRAN source 
language are only printable on the on-line printer. 
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TABLE I Summary of Control Codes for Keyboard Terminals 

Keyboards come in several flavors; as a result there are variations in the 
key used to transmit a particular code to the computer. This table lists 
the keys used on the most common devices, model 33 and model 35 teletypes. 
If "shift" or "CTRL" appears it means that the shift or CTRL key is to be held 
down while the accompanying key is struck. "(CS)" means that both the 
shift key and the CTRL key are held down while the indicated key is struck. 

Key Action 

RETURN Return printer to column one and inform computer 

that the line is complete as sent 

LINEFEED Space printer to next line 

SHIFT / Delete previous character (prints "?") 

SHIFT 1 Restart line (prints "!", no carriage return) 

CTRL A Exit from bell mode (characters sent in bell 

mode are discarded) 

SHIFT Prepare to enter 8-bit mode (prints left arrow) 

(CS) P Sign on code 

CTRL Q Enter or leave echo suppression mode (characters 

are not printed in this mode - used for pass- 
words, etc.) 

The following codes are sent only at the beginning of a line during input 
and are followed by a RETURN. 

CTRL B End of record (may be followed by two digit octal 

level. Level 17 is end of file). If sent during 
output, CTRL B means suppress multiple blanks. 

CTRL D End of job (i.e., end of information of fileset 

INPUT). If sent during output, CTRL terminates 
the current fileset. 

CTRL I Cancel job currently being entered 

Further details are in the Remote Terminal System manual. 
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KMOiilH RUN 2.3E3 BUGS AVPEHVU 8 



The following problems still exist in RUN 2.3B3: 

1. Registers may be confused in a DO loop within a subroutine if the sub- 
routine has six or more formal parameters and the DO loop does not end 
with a CONTINUE statement. 

2. Blank carcfe preceding or following a COMPASS subroutine may cause trouble. 
Avoid them. 

3. A statement such as 

READ 91,I,J,X(I,J),I,J,X(I,J) 

does not execute properly: when the subscripts for the second X(I,J) 
are calculated, a temporary value is used which was calculated for the 
first X(I,J) and involves the first value of J. In other words, it 
behaves like 

READ 91, I,J,X(I,J) ? I,ITEMP,X(I,J) 
J=ITEMP 

4. If the program name is included on the END card of a Fortran deck and 
the name begins with the letter F an erroneous no path diagnostic is 
given although the right code seems to be generated. 

5. One program has been reported which produces an erroneous undefined 
statement number diagnostic and fails to detect a NO PATH to this state- 
ment error. Fixing this error eliminates the spurious diagnostic. 

6. Expressions involving the in line functions REAL(Z) and AIMAG(Z) may 
not compile correctly. This may be avoided by using temporaries to 
hold the in line function values and substituting the temporaries in 
the required expression. In the case observed, the Washington RUN 
(RUNW) compiler produced correct code. 

7. When IF statements using compound conditionals are used, the mode of 
arithmetic in one component of the compound may incorrectly dominate 
other components. Enclosing the components in parentheses appears to 
avoid the problem, e.g. 

IF ((A .EQ. 5.3) .AND. (I .EQ. 10H )) STOP 

compiles correctly (but does not do so without the inner parentheses). 
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8. If a variable is mentioned in both a TYPE statement and a NAMELIST 
statement, the TYPE statement must appear first in the program. 

9. An illegal branch into the range of a DO of the form: 

DO 1 1=1, N 
IF (BLOB) GO TO 1 
DO 1 J=1,M 
1 CONTINUE 

is not detected as an error. Do not use this construction. Time 
will not be refunded to you if you do. 

10. The material concerning subprogram names discussed in 15.6 should 
properly be considered as bugs. 

11. A subscripted formal parameter may not be used as a FORMAT declara- 
tion identifier. 

Examp le : 

SUBROUTINE SUB (I) 
DIMENSION 1(10) 

WRITE (1,1(5)) J 

END 
produces the spurious diagnostic: 

UNRECOGNIZABLE STATEMENT 

12. RUN sometimes generates a bad object deck (won't load) for a sub- 
program with twenty or more formal parameters. 

13. Difficulties have been reported with ENCODE/DECODE statements 
using formal parameters. 

14. Use of an undefined value as a subscript of an I/O list item 
sometimes causes spurious error messages, e.g.. Illegal format 
or list-format conflict. 

15. Loop indices should be Integer values. 
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GLOSSARY 



All page, chapter and section references are to be found in this Guide. 

Underlining is used to indicate terms which are described elsewhere in 
this glossary. 

Absolute Address 

The adjusted address, after loading is completed, used to refer- 
ence a given word in the storage of a computer . 

Address 

A number used to locate a specific word in the storage of a 
computer. 

Allocatable device 

A storage medium which can be shaied by several jobs simultan- 
eously; a disk is allocatable, a magnetic tape is not. 

Alphanumeric 

An alphabetic or numeric character (A-Z and 0-9) . 



ANSI 



American National Standard Institute (Formerly USA Standard In- 
stitute and American Standards Association) . 



ASA See ANSI 

ASCII 

American Standard Code for Information Interchance - a binary 
representation of characters which has been adopted as a national 
standard for transferring characters between electronic devices. 

Assembler 

A translator which operates on computer-oriented symbolic lang- 
uage statements, generating the corresponding object code . 
COMPASS is an example. 



Base 



BCD 



Base of exponentiation in floating point notation . The base is 
often implicitly the same as the radix being used. 

An abbreviation for Binary CodecJ Decimal which refers to any one 
of several systems for representing each of the 10 decimal digits 
in addition to the 26 letters and sundry special characters by a 
unique sequence of bits. 

G-l 



Commonly but inaccurately used to describe the mode of recording 
information on tape in eyen parity . 

Binary 

The number system expressed to, the base (radix ) 2, consisting 
solely of combinations of the digits Q and 1. This is the 
system employed internally by the CDC 6Q00 Series computers. 

Binary Record 

The data read or written by a single unformatted READ or WRITE 
statement. 



Bit 



Block 



Blocking 



Buffer 



Byte 



One binary digit, either or 1. 



A group of contiguous entities recorded on and read from a 
storage medium as a unit; it may contain a partial, one, or 
more record (s) and is synonymous with Physical Record . 



A method for making more efficient use of a storage medium by 
grouping or dividing the data being read from or written onto 
the medium into standard physical units. See Chapter 13. 



An internal temporary storage area in which data are accumulated 
during input and output operations. It serves to compensate for 
the difference in speed at which two communicating components 
perform operations. The storage of data in a buffer is analo- 
guous to the storage of energy by a flywheel. 



A group of adjacent bits which constitute a subdivision of a 
computer word . In CDC 6000 Series machines, a 60 bit word is 
composed of 5 bytes of twelve bits each. 



CAL 



The identifier of the Computer Center installation within VIM, 
an organization comprised of installations using CDC 6000 and 
7000-series computers. 

CALIDO SCOPE 

CAL Improved Design of SCOPE. The name given to the operating 
system installed at CAL in 1971. 

Carriage Control 

The process of regulating the position of the paper in the printer 
to control the spacing of the printed lines. Double spacing and 
skipping to the top of a new page are examples. 

Carriage Control Character ,. 

The first character of each: line to be printed is used for 
carriage control and does not appear on the printout. See 
Section 10.1. 
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CDC 6A00 Computer System 

A computer complex manufactured by the Control Data Corporation 
constating of one central processor and ten peripheral processor 
plus assorted peripheral devices connected to the processors. 



s 



Central Memory (CM) 
See Memory 

Central processor (CP or CPU) 

A computing unit which performs the computational operations 
within a CDC 6000 series machine. 

Characteristic 

In floating point notation , the characteristic is the exponent of 
the base plus a constant used to eliminate negative values. 

Character Set 

A set of unique visual representations (graphics) and its corres- 
pondence to a given set of sequences of bits. A character set 
usually includes the letters from A to Z, the digits from to 9, 
and a selection of punctuation marks and mathematical symbols. 
In the CDC 6000 series machines there are 63 characters in the 
character set, each of which is represented by a given configura- 
tion of six bits (excluding the all-zero configuration) . (See 
Appendix A, Table H.) 



Character 



Coded 



May refer to either a graphic or its corresponding bit sequence, 
See Character Set. 



Encoded in characters as in formatted I/O as opposed to binary 
form. (See Chapter 13.) 

COMMON fileset 

A user created fileset which remains in the system after the job 
which created it is completed. It is available to subsequent jobs 
until it expires, a system deadstart occurs, or the fileset is 
released by the user. 

Common Storage 

An area for storing data within the memory field of a Fortran 
program such that its contents may be referenced by more than 
one subprogram. Common blocks which are labelled are stored 
just before the first subprogram which references them. The 
unlabelled or blank common block is placed at the end of all 
the subprograms loaded. See Section 5.3. 



COMPASS 



A hardware oriented symbolic programming language for CDC 6000 
series computers which jprov ides a CQMPr ehensive Assembly System, 
designed for efficient usage of computer resources and maximum 
flexibility in program construction at the price of tedious and 
detailed coding. 
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Compiler 

A translator , which operates on procedure- or application- 
oriented source language statements and generates the object " 
code which corresponds to them. 

Compiler Storage Map 

A table generated by a compiler giving the relative addresses 
assigned to elements declared in a source program . See Section 14'. 2. 3, 

Control Record 

The first logical record of the input for a job containing the jo£ : ' 
identification statement followed by the other control statements 
necessary to run the job. 

Control Statement r-i , *; 

Any one of several statements, which are placed at the beginning 
of the job input .and which indicate to the Operating System an 
operation to be performed. (See CALIDOSCOPE Control Statements. ) 



Core 



Cpi 



A donut-^-shaped piece of magnetic material used to record one 
bit of information.- Many computer memories are fabricated 
using cores so that "core" and "memory" are often used inter- 
changeably. 



Characters per inch (see Density . ) 



Cross-Ref erence Table ; , ; 

A program-generated directory giving the relative address assigned 
to elements in a program and the relative addresses of the refer- 
ences to each of them. 

Data Channel 

The interface between a peripheral controller and a peripheral 
processor . 

Dayfile > 

See Job Log and System Log . 

Deads tart 

The procedure of loading the Operating System from tape and placing 
it in execution. All previous information in the machine is erased, , 
and the system is totally reinitialized. See recovery . 

Debug 

To locate errors in a program or hardware device. 

A collection of punched cards; usually a set of related cards which 
have been punched for a definite purpose. See Job . 

Deck Name . .■■•., 

Seven or fewer characters associated for identification purposes with 
the object code generated for a subprogram. See Section 15.6.3 and 
Chapter 11. 



Deck 
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Density 



Default 

The yalue of an item which is assumed in the absence ot a speci- 
fic indication of what value the item should have. Usually 
applied to parameter values on control statements. 

A number which describes the physical spacing of information on 
a storage medium. On magnetic tape the unit of measure is charac- 
ters per inch (cpi) and equals the number of frames which are 
recorded per inch within each physical record . Densities used on 
CDC tape units are 200 cpi (LO), 556 cpi (HI), and 800 cpi (HY). 

Diagnostic 

A message issued by a program indicating an error in its input 

or environment . 

Direct-access fileset 

See Random Access Fileset. 

Disk 

A circular metal plate coated with a material which provides a 
magnetic recording surface. Information is recorded onto con- 
centric rings called tracks , each of which has an address . Reading 
and writing is done by means of one or more read/write heads 
mounted on movable or fixed arms. The operating system keeps 
filesets on disk and performs all the necessary bookkeeping so 
that filesets can be created, read, etc., by name rather than 
by disk address. 

Disk driver 

The set of peripheral processor programs which perform the read/ 
write operations from and to the disk . Also called the stack 
processor because requests for disk I/O operations may be queued 
in a stack. 

Disk fileset 

A fileset whose storage medium is disk . 

Disk pack 

A removable set of disks. 

Display code 

The encoding of characters as six bit sequences used to repre- 
sent coded information internally In the CDC 6400. See internal BCD 

Disposition code 

A 12-bit code in the FET for a disk fileset which designates the 
manner in which the fileset will be disposed of when the job is 
terminated, e.g., print, punch (Hollerith), punch (binary), etc. 
Zero indicates the fileset is not to be further processed. 



Dump 



A print-out of the contents of locations in memory in a specified 

format, usually octal . (See Section 15.5). More generally, the print-out 

of the contents of any storage medium , e.g., a tape dump. 
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ECS 

Extended Core Storage: An auxiliary storage device accessible 
via specific central processor instructions which serves as a 
relatively inexpensive and slower access core memory . 

ECS Field 

That part of the ECS allocated to a single job for access by 
instructions contained in the program. 

ECS Fileset 

A fileset whose storage medium is ECS . 

End of file 

A recorded configuration used to indicate the end of a file 
(see Chapter 13) , 

End of record 

A recorded configuration (see Chapter 13) used to indicate the 
end of a SCOPE logical record . On punched cards, it is a card 
with 7,8, and 9 punches in column one. 

Entry point 

A labeled instruction in a subprogram which marks a point at which 



references may be made to the subprogram irom other subprograms, 



EOF 



EOR 



Abbreviation for End of file. 



Abbreviation for End of record. 



Error message 

A message generated by a program to provide information about an 
error or a program malfunction. It is like a diagnostic except 
that is usually more serious. See Section 15.4. 

Execution 

The state describing the operation of a program in which the central 
processor of the computer functions according to the instructions 
of the program. Also, the state of a job while its control statements 
are being processed and the steps they call for are being performed. 

External 

An address referenced by a given subprogram which is not part of the 
same subprogram, e.g., a CALL or function reference (see entry point ) . 

External BCD 

A particular BCD representation used to represent a character set 
on even parity magnetic tape . The encoding used is the ANSI stan- 
dard BCD encoding. 



FET 



An abbreviation for Fileset Environment Table. 
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Field 

A set of one or more adjacent entities, such as memory words, card 
columns, printer positions, or bit positions, which are treated 
as a whole. 

Field Length ' 

The physical extent of a field . In particular the number of words 

in the Central Memory (or ECS) field of a job. 

File j ^ . 

A collection of related information terminated by a unique mark 
(called an EOF) having a logical beginning and ending, existing 
in the computing system as an element of a fileset . 

Fileset Environment Table 

A table set up in Central Memory serving as a communication link 
between the system and the user's program. The system and user's 
program indicate the state of the processing of a fileset by set- 
ting fields in this table. 



Fileset 



A named collection of information which is accessible via the 
Operating System . It consists of one or more files . 



Fileset name . . 

The name by which a fileset is known to the Operating System. A 
fileset name is a letter followed by up to 6 alphanumeric charac- 
ters. Sometimes called a logical fileset name or lfn, 

Floating Point Notation 

A notation similar to scientific notation by which a number is 
expressed as a signed decimal mantissa times some Integra^ power 
(exponent) of ten (the base) , e.g., 345.123 = ,345123 x 10 J . This 
notation is used with binary radix in computers to increase the 
range of numbers which can be stored (see Appendix A) . 



Format 



Formatted 



Frame 



1. Any specification for arranging elements. 

2. A Fortran statement specifying the arrangements of characters, 
fields , lines, punctuation, etc. 

Describes an I/O operation performed under the specifications of 
a Fortran FORMAT statement. 



See Ma gnetic Tape . 



Graphic The visual representation of a character (as produced, for example, 
by a line printer or teletype). 

Half Track 

Another name for a disk record block, used because the operating 
system allocates half of a track for a record block. 
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Hardware 

1. The magnetic, mechanical, electrical and electronic devices ; 
or components of a computer. 

2. (Slang) Any piece of automatic data/processing equipment. 

Hollerith Code 

Coding system for data in punched cards using one column per charac- 
ter. Named for inventor Herman Hollerith. 

Input , . r 

Information or data transferred or to be transferred from an 
external; storage medium into, the internal storage of the com- 
puter. In general,: anything that. is received from an external 
source; e.gT, input to a subprogram (i.e. , parameters) , input 
to a card reader, (i.e., a punched card), or input from a tele- . 
type line, etc. 

Input/Output (I/O) ,. .'*' 

The process of transmitting information into or out of a computer 
via peripheral devices (see Chapters 9, 10, and 13). 

Interface ! ; . 

A common boundary between automatic data-processing systems or 
between two devices of a single system. 

Internal BCD . , . 

In particular , display code , the character code used in CDC 
6000 series computers. (See Appendix A.) 

Inter-record gap 

An interval of space or time containing no Information and sig- 
nalling the end of a physical record on a storage medium such as 
tape. Also referred to as a: record gap. The size ; of the inter- 
record gap for magnetic tape is about 3/4". 



I/O 



See Input /Output . 



Job 1. The unit of work, consisting of a deck of cards or the equiva- 
lent input supplied via another input medium, beginning with 
a job identification statement and presented to the Operating 
System. 

2. More specifically, a collection of one or more filesets , one 
of which is classified as the INPUT fileset, which the Opera- 
ting System recognizes as an entity and which contains a des- 
cription of the operations the computer has to perform. Pos- 
sible elements include local filesets and COMMON filesets. 



Job card 



Job deck 



See job identification statement . 
See Job 1. 



Job identification statement 

The first statement of any job, containing the number of the account 

to be billed and various limit and control parameters. Called a job 
card when the job is punched on cards. See Guide to Computer Center 

Services and CALIDOSCOPE Control Statements for details. 
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Job log 



Job step 



Justify 



A chronological summary of significant occurrences during the 
processing of a job. It is printed at the beginning of each 

job's output. 

One of the divisions in the execution of a job_ which begins 
when a control statement is processed and (except for load 
sequences ) ends when a subsequent control statement is pro- 
cessed or job execution terminates. 

To position the contents of a field such that they either begin 
in the left-most position (left-justify) or end in the right- 



mo 



st position (right-justify). 



Keyword 

1. An informative word in a title or text. 

2. An identifier on a control statement specifying one of 
several possible parameters. 

Level number 

A number (from 1 to 17B) associated with each logical record which 
serves to organize the records in a fileset in a hierarchy (see 
Chapter 13). 



Lfn 



T -J Ki-a-r\r 



Line 



Abbreviation for logical fileset name . 



A collection of subprograms which are selectively loaded, as 
required, to satisfy the external references in a program 
already loaded . 

See Unit record 



Linking 



Listing 
Literal 



During loading, the process of supplying for each external refer- 
ence occurring in a subprogram loaded into memory, the absolute 
address of the corresponding entry point . More generally, the 
act of establishing a connection between two elements. 



A printed representation of coded information. 



A data item which is made up of a string of characters, e.g., a 
Hollerith constant. 



Load Address 

The absolute address of the first word of a subprogram after it 
has been loaded. 



Load map 



The directory produced on the output fileset by the Loader showing 
the absolute addresses at which the object code for various sub- 
programs and Common Storage blocks were placed in memory . A 
reference listing may also be included. See example in Chapter 14 
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Load sequence 

A sequence of one or more control statements which load and 
(optionally) execute a user's program* 



Loader 



Loading 



Location 



A program which accepts translator generated object code subpro- 
grams as input and places them in central memory in proper form 
for execution as one absolute program (see Section. 14.2.4). It 
may also produce program overlays on secondary storage media 
(see Chapter 8). 



The action performed by a Loader . 



See Address . 



Logical fileset name. 

See Fileset name . 

Logical Record 

A data structure within a fileset which is recognized by the 
operating system and which consists of a collection of infor- 
mation terminated by an end of record . The collection begins 
with the preceding end of record or, for the first logical 
record in a fileset, the beginning of the fileset. See 
Chapter 13. 

Machine language 

The set of instructions (and/or the binary representation of 
a particular sequence of instructions) which is directly 
interpretable by the machine hardware. 

A programming language which represents the hardware instructions 
more or less directly. 

See Object code . 

Magnetic tape 

A ribbon of plastic, coated with a metallic oxide that accepts 
and holds magnetism. The recording surface of the tape is 
divided lengthwise into tracks and crosswise into frames . 
These define a matrix in which the presence or absence of tiny 
spots of magnetism called bits represent the information. See 
Chapter 13. See entries for parity . 

Main program 

The program element (defined in Fortran by a PROGRAM statement) 
to which control is transferred after loading has been comple- 
ted. A Fortran main program contains the definitions of the 
filesets to be used for input and output (see Section 7.4). 
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Mantissa 

The coefficient which is to be multipled by the base raised to 
the exponent power to determine the value of a number in floating- 
point notation . The mantissa is usually in the form of a nor- 
malized fraction. See Floating Point Notation . 

Memory 

The internal hardware device used to store information to be 
used by the central processor . Also referred to as Central 
Memory, core or CM, 

Memory Field 

That portion of memory assigned to the processing of a .job . 

Microsecond 

One millionth of a second. 

Millisecond 

One thousandth of a second. 

Normalized 

A fraction is normalized with respect to a radix if its posi- 
tional representation in that radix has a non zero digit fol- 
lowing the radix point. A number in floating point notation 
is normalized if its mantissa is a normalized fraction or the 
number is zero. 

Object code 

A sequence of instructions needing only linking and relocation 
to be directly comprehensible to the computer, to perform a given 
set of arithmetic and logic operations which solve a given prob- 
lem. Also referred to as object language, machine language , or 
object program. 



Octal 



Off-line 



On-line 



The number system to the radix 8. Octal numbers may be 
derived from binary numbers by grouping the bits into sets of 
three going away from the binary point and converting each group 
to the corresponding octal digit. 



Operation of input /output and other devices not under direct com- 
puter control. 



Operation of an input/output device as a component of the compu- 
ter, under programmed control. 



Operating System 

An organized collection- of programs „under whose supervision and 
control jobs are processed . 
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Output 



Overlay 



Parity 



Information transferred from the internal storage of a computer - 
to any one of several external storage media, e.g., paper, cards, 
magnetic tape . In general anything which is communicated to the 
outside. 



The technique used to run a job in a smaller area of memory than 
would be required If the entire program resided in memory simul- 
taneously. Overlays are stored on a secondary storage device and 
are read into memory when needed, replacing program elements which 
are no longer needed (see Chapter 8). 



The remainder modulo 2 (i.e., even or odd) of the count of the 
non-zero bits in a given group . 



Parity: block, track, or longitudinal 

The parity of the bits in a given track of a block on tape , also , by 
extension, the parity of all tracks in the block. 

Parity bit 

The seventh bit in a frame on magnetic tape representing the parity 
check information. 

Parity: character or frame 

The parity of the bits in each frame across the width of the tape . 

Parity check 

A method for detecting errors in stored data (caused on tape , for 
example, by dust or skew while reading/writing). Also, an error 
detected by performing a parity check, i.e., a parity error. 

Parity: even 

A checking method which counts one bits in a given group and 
appends a 1 or as the parity bit such that the total of ones is 
even. 

Parity: odd 

A checking method which counts the one bits in a given group and 
appends a 1 or as the parity bit such that the total of ones 
is odd. 

Peripheral controller 

A piece of equipment which acts as an intermediary control device, 
linking a peripheral unit to a data channel or in the case of 
off-line operation, to another peripheral unit. 

Peripheral processor (PP) 

A computer which performs input/output or monitor functions 
within a CDC 6000 series computer system. 
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Peripheral unit or device 

One of various machines used in combination or conjunction with 
the computer but not part of the computer itself, e.g., card 
reader, line printer, magnetic tape unit. 

Physical record 

A block of information recorded on a physical medium and con- 
stituting the amount of information which was recorded on that 
medium as a unit. It is the minimum amount of information which 
can be read from the medium. (see Blocking . ) 

Physical Record Unit (PRU) 

The maximum size for physical records to be read from a particu- 
lar medium. For most media this is fixed but it may be adjusted 
in the case of magnetic tape (see Chapter 13). 

Print-out 

Output produced on a printer. 



Process 



Program 



PRU 



A generic term that may include compute, assemble, compile, inter- 
pret, execute, generate, etc., i.e., perform a specific compu- 
tation action. 



The collection of subprograms needed to solve a given problem 

on a computer. Also used commonly to refer to a single subprogram, 



See Physical Record Unit . 



Public Fileset 

A fileset which is permanently available to jobs in the system, 
i.e., is guaranteed to be available whenever user jobs are being 
processed. 



Radix 



The base of a number system, i.e., a quantity that defines a sys- 
tem of representing numbers by positional notation. 



Random access fileset 

A fileset in which individual logical records are directly acces- 
sible regardless of their position. See Section 13.0.1. 

Record 

See Binary Record , Logical Record , Physical Record and Unit Record , 

Record block 

The unit in which space on an allocatable device is allocated to 
a fileset, e.g., a disk record block is fifty sectors of 64 words 
each. ™ 
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Reference Address (RA) . . 

The hardware addres s in Central Memory which serves as the origin 
for the loading of a lob- It defines the first word of the mem- 
ory field for the job (the job uses to address this word). 

Relative Address. 

The address used to identify a word in a subprogram with respect 
to its relative position in that subprogram. The starting 
address is relative location 0. A relative address is transla- 
ted into an absolute address by addition of the specific load 
address serving as the origin of that subprogram. 

Relocatable binary . 

The form of the' object code produced by many translators, kun in 

particular . ■■..... ...* : 

Relocation . 

The method by which the object code for a subprogram is placed 

In memory starting at a load address . 

Register 

A device for the temporary storage of one or more words to faci- 
litate arithmetic, logical, or transfer operation. CDC 6000 
series computers have eight address registers (A0-A7), eight 
index registers (B0-B7), and eight operand registers (X0-X7). 
Also, a memory cell devoted to a specific function. 

Remote Terminal System 

The CALIDOSCOPE subsystem which communicates with keyboard ter- 
minals. 



Ring 
Rollout 



RTS 



See Write Enable Ring . 

A, technique, used to improve turnaround for high-priority jobs 
by temporarily saving the contents of the memory field of a 
lower priority job on disk or ECS to allow other jobs to get 
the memory they require. When the higher priority tasks are 
complete, the lower priority job is "rolled in" and its pro- 
cessing resumed. 



See Remote Terminal System . 



RUN compiler 

The name given to the particular Fortran compiler documented in 

this manual . 

Run 

The act of submitting a job to the computer for processing - 

including all phases of processing. 

RUNW 

A version of RUN produced by the University of Washington. 

SCOPE 

The manufacturer's Operating System for the CDC 6000 series com- 
puters. CALIDOSCOPE is derived from version 3.2 and 3.3 of SCOPE 
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Sector 

One of the 100 equal length, areas into which a track on a disk 
is divided; a disk PRU. 

Sequential access fileset 

A fileset in which individual logical records are accessible 
only after the preceding records have been accessed, regard- 
less of whether all the information or only some of it is 
desired. See Section 13.0.1. 



Skew 



Software 



Misalignment of the bits in a frame on tape due to some physical 
distortion of the tape. 



Various internal programs or routines professionally prepared 
to facilitate the user's efficient operation of the computer 
equipment (hardware); e.g., compilers , assemblers , operating 
systems . More generally, any programs used on a computer. 

Source language 

A language suitable for input to a translator (as opposed to 
object code ) . 

Source listing 

Output generated by a compiler or assembler in which each state- 
ment of the source language input is given. Diagnostics for any 
detected errors which occur may also be given. 

Source program 

The sequence of statements tfhich are input to a translator (e.g., 
Fortran). See Section 1.2. 

Stack processor 

See Disk Driver . 

Storage map 

See Compiler Storage Map and Load Map . 

Storage medium 

A material on which information may be recorded; in particular, 
a material on which information may be both recorded and retrieved 
through 1/0 devices attached to a computer. 

Subprogram 

A program element which can be compiled separately and may be 
linked with other program elements to create an executable pro- 
gram. Used to refer to a subroutine , a main program , a function, 
a block data subprogram or a library subprogram which is not in 
any of these categories. Subroutines, functions, and main programs 
are called "procedural subprograms". See Chapter 7. 
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Subroutine 

A subprogram which depends upon other subprograms for its acti- 
vation. In Fortran a subroutine is activated by a CALL state- 
ment . 

Syntax 

Rules governing statement structure in a language. 

System log 

Combined job log for all jobs run during a given period, also 
containing certain operational information. 



Tape 



See Magnetic Tape 



Tape Drive (Unit) 

Tne hardware mechanism that moves magnetic or paper tape past 
read/write heads for purposes of information transfer. 

Tape Driver 

The set of peripheral processor programs which perform the input/ 
output operations from and to magnetic tape . 

Tape Mark 

A pattern recorded on tape to signal the end of valid information 
It consists of an octal 17 written in even parity followed by a 
block parity check character. 



Traceback 



Tracing 



A listing of the sequence of subprogram linkages in the path from 
the main program to the current subprogram, i.e., an ordered 
listing of CALL, function references, or implicit library calls 
which have been executed and for which no corresponding RETURN 
has been executed. 



A technique for debugging a routine whereby during the execution 
of its instructions, information concerning the status of regis- 
ters , storage locations, location counters, variables, etc., are 
transmitted to an output device in the same sequence in which 
the traced instructions are executed. 

Track 

The portion of a moving-storage medium, such as a magnetic tape 
or disk , onto or from which sequences of bits may be written . 
or read one at a time in a serial fashion. 

Translator 

A program which operates on statements written in one language 
(called the source language) and generates a set of corresponding 
statements in another language (called the target language or 
in some cases, object code ) . 

Turnaround 

The length of time from when a job is submitted for processing 
until the results are available. 
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Unformatted 

Describes an operation performed on data taken just as it is 
found. Used specifically to refer to a Fortran read or write 
operation which has no FORMAT statement associated with it. 

Unit record 

In central memory, a sequence of coded characters whose end is 
indicated by a terminator (twelve or more bits of zero) which 
fills out a CM word . Externally, a unit record may be a printed 
line or a punched card. 

Unsatisfied external 

An external reference which appears in a subprogram and which does 
not correspond to an entry point in any subprogram loaded with 
it or in any subprogram in the library. A list of unsatisfied 
externals, if any were found, appears at the end of the load 
map . 



USASI 



Volume 



See ANSI. 



A physical unit of a storage medium, e.g., a reel of magnetic 
tape , a disk pack . 

Write Enable Ring 

A ring physically inserted into a reel of magnetic tape to allow 
information to be written on it. 

Write Ring 

See Write Enable Ring . 



Word 



A unit of information within memory . The information may be 
data to be operated on by the central processor or instructions 
for the central processor to execute a program. In CDC 6000 
series machines, a word consists of 60 bits. 
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7-2, 7- 


5, 


7-7, 


15-7 


TO 15-18 




B-l 








15-1 








14-19 


> 






11-4, 


11-10 






2-4 








3-4 








5-1 








2-7, 


5-1 






9-5 








6-2 








1-4, 


14-1 TO 


14 


-5 


A-l 









CONJG (FUNCTION) 11_4 „ -, 

CONSTANTS 2 ~ 2 » A" 1 

CONTINUE STATEMENT 6 " 7 

CONTINUATION LINES T" 6 

CONTROL CARD T 5 " 1 

CONTROL CHARACTERS,, CARRIAGE ^-Z 

CONVERSION, OCTAL/DECIMAL A ' 4 » A ~ 12 T0 A" 1 - 8 

COS (function) ]1 ~ 4 

CSIN (FUNCTION) Tl- 4 

CSQRT (FUNCTION) ^" 4 



-D- 



U i-UKHAl ^"Itt 



l _ 1 Q 

'— A O 



DABS (FUNCTION) 


11-4 


DATA CARDS 


9-4 TO 9-6 


DATA, INTERNAL FORMATS 


A-l, A- 8 


DATA STATEMENT 


5-8 


DATA, FORMAT CONVERSION! 3F 


9-5 


DATA INPUT 


1-7, 9-5, 10-4, 10-9 


OATA TYPES 


2-2 


DATAN (FUNCTION) 


11-4 


DATAN2 (FUNCTION) 


11-4 


DAYFILF 


SEE JOB LOG 


DBLE (FUNCTION) 


11-4, 11-11 


HCOS (FUNCTION) 


11-4 


DECIMAL CONSTANT 


2-2 TO 2-3, A-l 


DECIMAL TO HCTAL CONVERSION 


A-4, A-12 TO A-18 


DECK SETUP 


14-2, 14-33, 14-34, 15 


DECLARATIVE STATEMENTS 


1-2, 5-1 Tn 5-11, 9-4 


DECODE STATEMENTS 


10-11, 10-15 


DEXP (FUNCTION) 


11-4 


DIAGNOSTICS, COMPILATION 


15-7 TO 15-18 


DIAGNOSTICS, EXECUTION 


15-20 TO 15-27 


OIM (FUNCTION) 


11-4 


DIMENSIONING 


5-1 TO 5-3, 7-11 


DIMENSION STATEMENT 


5-2 


DISK 


10-2, 13-9, 13-15 


DISPLA (SUBROUTINE) 


11-5, 11-11 


DISPLAY CODE 


A-20 


DLOG (FUNCTION) 


11-5 


OLOGIO (FUNCTION) 


11-5 


DMAX1 (FUNCTION) 


11-5 


DMIN1 (FUNCTION) 


11-5 


OMOD (FUNCTION) 


11-5, 11-14 


DO, IMPLIED 


5-8, 9-2 


DO NESTS 


6-5, B-2 


DO STATEMENT 


6-4, A-10 


DOMINANCE, MIXED-MODE 


3-4, 4-2 


DOUBLE STATEMENT 


5-1 


DOUBLE PRECISION CONSTANTS 


2-3 


DOUBLE PRECISION EXPRESSION 


3-4, 4-2 


DOUBLE PRECISION I/O FORMATS 


9-12, 9-18 


DOUBLE PRECISION STATEMENT 


5-1 


DOUBLE PRECISION VARIABLES 


2-7, 5-1 


DSIGN (FUNCTION) 


11-5 


DSIN (FUNCTION) 


11-5 



1-3 



DSQRT (FUNCTION) 
DUMMY ARGUMENTS 
HUMP, EXPLANATION OF 
OUMP (SUBROUTINE) 
DUMPREG (SUBROUTINE) 
OVCHK (SUBROUTINE) 



E FORMAT 

PCS 

ECSIO (SUBROUTINE) 

EDITING SPECIFICATIONS 

ENCODE STATEMENT 

ENDFILE STATEMENT 

END-OF-F ILE 

END-OF-INFCRMATION 

END-OF-RECORD 

END STATEMENT 

ENTRY POINTS 

ENTRY STATEMENT 

EOF CARD 

EOF (FUNCTION) 

EOT CARD 

FOR CARD 

EQUIVALENCE STATEMENT 

EQUIVALENCING I/O FILESETS 

EPROR MESSAGES, COMPILATION 

ERROP MESSAGES, EXECUTION! 

ERROR TRACEBACK 

ERRORS UNDETECTED BY COMPILER 

EVALUATION, EXPRESSION 

EXECUTABLE STATEMENTS 

FXECUTION 

EXECUTION SEQUENCE CONTR3L 

EXECUTION-TIME DIAGNOSTICS 

EXIT MODE 

EXIT (SUBROUTINE) 

EXP (FUNCTION) 

EXPLICIT TYPING 

EXPONENT FORMATS 

EXPONENTIATION 

EXPRESSIONS 

EXTENDED CORE STORAGE 

EXTERNAL STATEMENT 

EXTERNAL TAPE 



11-5 

SEE FORMAL PARAMETERS 

15-32 

11-5, 11-11 

11-5 

11-5, 11-15 

-E- 

9-6, 9-7, 9-18 
10-2, 13-9 

SEE RECS, RERECS, WECS 

9-19 

10-li, 10-13 

10-7 



EOF, 
EOI, 
EOR, 



10-7, 10-8 
13-14, 13-16 

13-5 



SEE 

SEE 

SEE 

6-8 

14-23 

7-13 

13-10 

11-5, 11-12 

13-10 

13-10 

5-6 

7-4, 7-5, 13-3 

15-7 TO 15-18 

15-20 TO 15-27 

15-3, 15-6, 15-20 

15-19 

3-2 

CH 12. 

1-4, 14-2, 14-28 

1-2, 6-1 TO 6-7 

15-20 TO 15-27 

15-30 

11-5 

11-5 

2-6, 

2-3, 

3-1, 

3-1 



5-1, 
9-6, 
3-2 

TO 3-11 



7-7 
9-7, 



A-l, A-3 



10-2, 13-9 

7-14 

13-12, 13-14 



F FORMAT 

FATAL COMPILATION DIAGNOSTICS 

FATAL EXECUTION DIAGNOSTICS 

FDEBUG (SUBROUTINE) 

FET 

FIELD LENGTH 

FILE 



-F- 

9-9, 9-17 

15-7 TO 15-18 

15-20 TO 15-27 

11-5 

15-2 

14-25, 14-29 

SEE FILESET, 13-7 
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FILF ENVIRONMENT TABLE 

FILESET 

FTLESET ACCESS 

FILESET DISPOSITION 

FILESET EQUIVALENCING 

FILESET INPUT 

FILESET LGO 

FILESET NAMES 

FILESET OUTPUT 

PRESET POSITIONING STMTS, 

FIXED-POINT 

FLOAT (FUNCTION) 

FLOATING POINT ARITHMETIC 

FLOATING POINT FORM 

FLOW OF JOB IN SYSTEM 

FORMAT STATEMENT 

FORMAL PARAMETERS 

FORMAT/LIST INTERACTION 

FORMAT REPETITION FACTOR 

FORTRAN CHARACTER SET 

FORTRAN LIBRARY FUNCTIONS 

FORTRAN SOURCF PROGRAM 

FORTRAN STATEMENTS CATEGORIES 

FUNCTION REFERENCE 

FUNCTION STATEMENT 

FUNCTIONS 



SEE FET 




7-3, 


13-1 TO 13- 


16 


13-1 






13-4 






7-4, 


13-3 




7-3, 


10-1, 10-4, 


10-8, 


14-3, 


14-21 




7-3 TO 7-5, 10-1 


, 13-2 


7-3, 


10-1, 13-2, 


13-4, 


10-7, 


10-8 




SEE INTEGER 




11-5 






A- 3 






A-l 






1-4, 


14-2 




9-4 






7-2 






9-24 






9-24 






2-1 






CH 13 


I. 




1-2, 


14-2 




CH 12. 




3-2, 


7-8 




7-7 






7-1, 


7-7, 7-9, CH 11 



13-2, 13-4, 14-3 



14-3 



-G- 



G FORMAT 

GDSLIB 

GETCJE (SUBROUTINE) 

GETREG (SUBROUTINE) 

GO TO STATEMENTS 



9-ii, 
11-1 
11-5 
11-6 
6-1, 6-2 



^-1Q 



-H- 



H FORMAT 

HIERARCHY 

HIERARCHY 

HOLLERITH 

HOLLERITH 



OF OPERATIONS 
OF TYPES 
CONSTANTS 
FORMAT 



9-19, 9-20 

3-2, 3-8, 3-10 

3-4 

2-4, A-l, A-6, A-8 

9-5, 9-19, A-l, A-6 



-I- 



I FORMAT 


9-12, 


9-13 


IABS (FUNCTION) 


11-6 




IDENTIFICATION FIELD 


1-6 




IDENTIFIER, ALPHANUMERIC 


2-1 




IDENTIFIER, STATEMENT 


2-2 




IDIM (FUNCTION) 


11-6 




ID INT (FUNCTION) 


11-6, 


11-18 


IEOI (FUNCTION) 


11-6, 


11-13 


IEOP (FUNCTION) 


11-6 




IF STATEMENT, ARITHMETIC 


6-3 




IF STATEMENT, ONE-BRANCH 


6-3 
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IF STATEMENT, 
IF STATEMENT, 
IF( EMDFRE, 
TF( FOF, I) 
IF( IOCHECK, 
IF( UNIT, I) 
IFIX 
IMPLICIT 



TWO-BRANCH 
THREE-BRANCH 
II T,F 

T,F 
I) T,F 

8»C,E,P 
(FUNCTION) 
TYPING OF VARIABLES 



IMPLIED DO-LOOP NOTATION 
INDEFINITE FORM, MACHINE 
INDVCEX (FUNCTION) 
INFINITE FORM, MACHINE 
INPUT FILESET 
INPUT/OUTPUT 
INPUT STATEMENTS 
INT (FUNCTION) 

INTEGER ARITHMETIC 
INTEGER CONSTANTS 
INTEGER I/O FORMAT 
INTEGER STATEMENT 
INTEGER VARIABLES 
INTERNAL DATA TRANSMISSI3M 
INTERNAL FORMAT CONVERSI3N 
INTERNAL TAPE 
INTRINSIC FUNCTIONS 
I/O BUFFERS 
I/O DEVICES 
I/O LIST 
I/O STATEMENTS 
ISIGN (FUNCTION) 



6-4 

6-3 

10-8 

10-8 

10-8 

10-8 

11-6, 11-18 

2-6, 5-1 

5-8, 9-2 

14-24, 15-30, 

11-6, 11-13 

14-29, 15-30, 



A-5, A-6 



A-5, A-6 



7-3, 10-1, 

SEE I/O 

10-4 TO 10-7, 10-9 

11-6, 11-18 

A- 2 

Z-Z 

9-5, 

5-1 

2-6, 5-1 

10-11 TO 

10-11 

13-12 TO 13-13 

11-1, 11-2 

7-4, 14-26, 15-2 

13-8 

9-1 TO 9-4, 9-26 

1-2, CH 10. 

11-6 



10-4, 10-8, 13-2, 13-4, 14-3 



9-12, 9-13 



10-16 



-J- 



JOB DEFINITION 


14-2 


JOB IDENTIFICATION STATEMENT 


14-1 


JOB LOG 


14-6, 


J08, SAMPLE 


14-5 



14-16 
TO 14-15 



-K- 



KEYBOARD 
KOMMON 



TFRMINALS 
(FUNCTION) 



1-7, 
11-6 



A-21 



-L- 



L FORMAT 


9-5, 9-16 




LABELED COMMON 


5-3, 14-20, 14- 


■22 


LEFT (FUNCTION) 


11-6 




LEGVAP (FUNCTION) 


11-6, 11-13 




LENGTH (FUNCTION) 


11-6, 11-13 




LEVELS, OVERLAY 


CH 8, 




LGO CONTROL STATEMENT 


13-4, 14-7, 14- 


■17 


LGO FTLESFT 


14-3, 14-21 




LIBRARY ROUTINES 


7-10, CH 11 




LIBRARY EXECUTION MESSAGES 


15-20 TO 15-27 




LINKAGE, COMPASS 


15-3 TO 15-5 





14-33, 14-34 
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LINKAGE BETWEEN SUBPROGRAMS 7-1, 7-5, 7-8, 7-13, 7-14, 14-20 

LINKS, OVERLAY 8-1 

LIST 5-1, 5-8, 7-1, 7-3, 7-7, 9-1 TO 9-4, 

9-26 

LIST STATEMENT 14-19 

LITERALS 2-4, 9-5, 9-19, 9-20, A-l, A-6, A-8 

LNGBCD (SUBROUTINE) 11-6 

LOAO AND EXECUTE SEE LGO 

LOAD AND GO SEE LGO 

L^AD CONTROL STATEMENT 14-34 

LOAD MAP 14-20, 15-33, 15-34 

LOADEP CH 8, 14-21, 14-33, 14-34 
LOCATION OF ARRAY ELEMENTS 2-8, 5-6 

LOCF (FUNCTION* 11-6 

LOGICAL CONSTANTS 2-5, A-l, A-7 f A-9 

LnGICAL EXPRESSIONS 3-1, 3-8 

LOGICAL I/O FORMAT 9-5, 9-16, A-7, A-9 

LOGTCAL-IF STATEMENT 6-3, 6-4 

LOGICAL I/O UNIT NUMBER 10-1, 13-2 TO 13-4 

LOGICAL OPERAND USAGE 3-7t 3-8, 4-4, A-7, A-9 

LOGICAL RECORD 13-5 
LOGICAL REPLACEMENT STATEMENT 4-4 

LOGICAL STATEMENT 5-1 
LOGICAL STATEMENT FUNCTION 7-9 

LOGICAL VARIABLES 2-7, 5-1, A-l, A-7, A-9 

LOOP SEE DO STATEMENT 

LRDISK (FUNCTION) .11-6 

-M- 

MACHINE LANGUAGE 1-1, 15-3 TO 15-5 

MAGNETIC TAPE 1-7, 13-4, 13-9, 13-11 TO 13-15, 14-32 

MAIN PROGRAM 7-1, 7-3, 14-28 

MAPS OF PROGRAMS IN MEMORY 14-21 

MASKING EXPRESSIONS 3-10 

MASKING REPLACEMENT STATEMENT 4-4 

MATHLIB 11-1 

MAXO (FUNCTION) 11-7 

MAX1 (FUNCTION) 11-7 

MCLOCK (SUBROUTINE) 11-7, 11-17 

MDATF (SUBROUTINE) 11-7, 11-17 

MEMORY BACKGROUNDING 14-24 

MEMORY DUMo 14-14, 14-29, 15-30, 15-32 

MEMORY LAYOUT 14-22, 14-24 TO 14-27 

MEMORY (SUBROUTINE) 11-7, 11-14 

MESSAGES TO OPERATOR SEE REMARK, PAUSE 

MESSAGES TO USER SEE JOB LOG 

MILSEC (FUNCTION) 11-7 

MINUS ZERO 2-5, 2-7, 3-7, 9-6, 11-18, A-7 

MINO (FUNCTION) 11-7 

MINI (FUNCTION) 11-7 

mXFD-MODE EXPRESSIONS 3-4 TO 3-6 

MIXED-MODE REPLACEMENT 4-1 

MOD (FUNCTION) 11-7, 11-14 

MODE, ERROR EXIT 15-30 

MODE OF I/O SEE BINARY, CODEO 
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MSFILE 
MTOISK 
MZERO 



(SUBROUTINE) 
(FUNCTION) 



NAME, SYMBOLIC 
NAMELIST READ 
NAMELIST STATEMENT 
NAMELIST WRITE 
NARG (SUBROUTINE) 

NEW RECORD SPECIFICATION 
NMOISK (SUBROUTINE) 

NOBLOK (SUBROUTINE) 

NOLIST STATEMENT 



14-5, 14-16 

11-7 

11-7, 11-18 

-N- 

2-1 

10-6 

9-28 

10-4 

11-7 

9-5, 9-21, 9-27 

11-7 

11-7, li-14 

14-19 



FORMAT 
OBJECT PROGRAM 

OCTAL CONSTANTS 

OCTAL I/O FORMAT 

OCTAL TO DECIMAL CONVERSION 

ONES COMPLEMENT 

OPOISK (SUBROUTINE) 

OPERANOS AND OPERATORS 

OPERATING SYSTEM DIAGNOSTICS 

OPERATOR ACTION 

OR (FUNCTION) 

ORDER OF OPERATIONS 

OUT-OF-BOUNOS ADDRESS 

OUTPUT FILESET 

OUTPUT OF SAMPLE JOB 

OUTPUT STATEMENTS 

OVERFL (SUBROUTINE) 

OVERLAY EXECUTION 

OVERLAY DIRECTIVE 

OVERLAY (SUBROUTINE) 



-0- 



9-5, 9-14 

1-4, 14-3, 14-21, 14-22, 14-30, 14-33, 

14-34, 15-1 

Z-Z 

9-14 

A-4. A-12 TO A-18 

3-10, A-2 

11-7 

3-1 

15-28, 15-30 

6-7 

11-7, 11-10 

3-2, 3-8, 3-10 

15-30 

7-3, 10-1, 13-2, 13-4, 14-3 

14-5 TH 14-15 

10-2 TO 10-4 

11-8, 11-15 

8-2 TO 8-4 

8-5 

8-6, 11-8 



-P- 



P FORMAT 
PAGE EJECTS 
PARAMETER 
PARITY, DISK 
PARITY, MAGNETIC TAPE 
PAUSE STATEMENT 
PDUMP (SUBROUTINE) 

PHYSICAL RECORD 

PHYSICAL STRUCT* OF FILESETS 
PLACEMENT OF DECLARATIONS 
PRECISION, FLOATING POINT 
PRIMARY 

P? INTED OUTPUT 



9-17 

10-2 

7-1, 7-2, 7-5, 7-8, 15-3 

13-16 

10-1, 10-2, 10-8, 13-11 

6-7 

11-8, 11-11 

13-5, 13-7, 13-8 ,13-12, 13-13, 

13-14, 13-15 

13-7 TO 13-9, 13-12 T3 13-16 

5-1, B-2 

2-3, 2-4, A-l, A-9, A-10 

8-2 

10-2, 13-11 
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PRINTFP CHARACTER SET 

PRINTER CARRIAGE CONTROL 

POINT STATEMENT 

PROGRAM ARRANGEMENT 

PROGRAM LENGTH 

PROGRAM STATEMENT 

PRU (PHYSICAL RECORD UNIT) 

PUNCH, FILESET 

PUNCH STATEMENT 

PUNCHB, FILESET 

PUNCHED CARD INPUT 

PUNCHED CA»D OUTPUT 

f ciiooniiT imp \ 

% «J VJ !-> "A V_> V» ' llll. I 



QUOTE (*...* FORMAT) 



A- 20 
10-2 
10-2 

7- lit 14-2, 14-24, 14-26 
]^-X9t 14-25, 14-26 

7-3, 13-3 

13-7, 13-12, 13-13, 13-14, 13-1$ 

7-3, 10-1, 13-4, 14-31 

7-3, 10-3 

13-4, 14-31, 15-1 

1-6,13-8, 13-9, 14-2, 14-28 

7-3, 10-3, 13-8, 13-9, 14-30 

11-8 

-Q- 
9-5 

-R- 



R, FORMAT 

RANE (FUNCTION) 

RANGE OF NUMBERS 
RDDISK (SUBROUTINE) 

READ STATEMENTS 
REAL CONSTANTS 
PEAL (FUNCTION) 

PEAL STATEMENT 
REAL VARIABLES 
REAL I/O FORMATS 
PFCOPD, LOGICAL 
RECORD, PHYSICAL 

RECORD, UNIT 
RECS (SUBROUTINE) 

REFERENCE, ARRAY 
REFERENCE, SUBPROGRAM 
REFERENCE, UNSATISFIED 
RELATIONAL EXPRESSIONS 
RELATIVE LOCATION 
RELOCATABLE OBJECT PROGRAMS 
REMAPK (SUBROUTINE) 
REMOTE TERMINAL SYSTEM 
REPEATED FORMAT SPECS. 
REPLACEMENT STATEMENTS 
REQUEST CONTROL STATEMENT 
RFRFCS (SUBROUTINE) 
RESFRVED WORDS AND NAMES 
RFTURM STATEMENT 

(SUBROUTINE) 
STATEMENT 



PFTURN 
REWIND 

ROOT 

RTS 

PUN CONTROL 

PUN-COMPASS 



STATEMENT 
LINKAGE 



9-16 

11-8, 11-15 

A-9, A-10 

11-8 

10-4 TO 10-7 

2-3 

11-8 

5-1 

2-6, 5-1 

9-6 1U 9-12, 9-17, 9-18 

13-5 

13-5, 13-7, 13-8 , 13-12, 13-13, 

13-14, 13-15 

10-1, 13-11, 13-13, 13-14 

11-8 

2-7 

7-1, 7-5, 7-8, 14-23 

14-23 

3-6 

2-10, 14-22, 15-33, 15-34 

1-4, 14-3, 14-21, 14-30, 14-33, 14-34 

11-8, 11-15 

A-21 

9-24, 9-25 

4-1 

13-4 

11-8 

15-35 TO 15-36 

6-7 

11-8, 11-16 

10-7 

8-1 

SEE REMOTE TERMINAL SYSTEM 

L5-1 TO 15-2 
15-3 Tn 15-5 



1-9 



-s- 

SAMPLE DECK SETUPS 

SAMPLE OUTPUT 

SAMPLE USE OF FI LESET NAMES' 

SCALE FACTOR U/O FORMATS) 

SECOND (SUBROUTINE) 

SECONDARY 

SETFXB (SUBROUTINE) 

SFTPPU (SUBROUTINE) 

SETPOCT (SUBROUTINE) 

SHOPT LIST NOTATION 

SIGN (FUNCTION) 

SIMPLE VARIABLES 

SIN (FUNCTION) 

SKIP COLUMNS (X-FQPMAT) 

SLITE (SUBROUTINE) 

SLITFT (SUBROUTINE) 

SNGL (FUNCTION) 

SORTP (SUBROUTINE) 

SOURCE DECK 

SOURCE LISTING 

SOUPCF PPOGRAM 

SPACE ALLOCATION 

SORT (FUNCTION) 

SSWTCH (SUBROUTINE) 

STANOARO SUBPROGRAM LIBRARY 

STAR <*...* FORMAT) 

START (SUBROUTINE) 

STATEMENT IDENTIFIER 

STATEMENT FORM 

STATEMENT FUNCTION 

STATEMENT NUMBER 

STOP STATEMENT 

STORAGE ALLOCATION 

STORAGE ALLOCATION STATEMENTS 

STORAGE, PERIPHERAL 

SUBPROGRAM LINKAGE 

SUBPROGRAM TYPES 

SUBPROGRAM 7-5, 7-7, 7-10, 7-11, 7-16 

SUBPLIB 

SUBROUTINE STATEMENT 

SUBROUTINES 

SUBSCRIPTED VARIABLES 2-7, 5-1 TO 5-6, 5-8, 9-2 

SUBSCRIPTS 

SWITCH 

SYMBOL CONVENTIONS 

SYMBOLS, FORTRAN 

SYNTAX ERRORS 

SYSTEM COMMUNICATION AREA 

SYSTEM ERROR MESSAGES 14-17, 14-18, 15-7 TO 15-31 

SYSTEMP (SUBROUTINE) 

1-10 



14-2, 


14- 


-33, 14- 


34 


14-5 


TO 1 


L4-15 




13-3, 


13- 


-4 




9-17 


TO 9-18 




11-8 








3-2 








11-8 








11-8 








11-8, 


.11- 


-17 




9-2, 


9-4 






11-8 








2-5 








11-8 








9-19 








11-8, 


11- 


-10 




11-9, 


11- 


-10 




11-9, 


11- 


-18 




11-9 








14-2 








14-3, 


14- 


-18 




14-2 








5-1 TO 5- 


-7. 14-26 


11-9 








11-9, 


11- 


-10 




11-1 








9-5 








11-9, 


11- 


-15 




2-2 








1-5, 


1-6 






7-9 








1-6, 


2-2 






6-7 








14-26 








5-1 TO 5- 


-7 




13-8 


TO 1 


L3-17 




15-3 








7-1 








7-5, 


7-7, 


, 7-10, 


7-11, 


11-1 








7-5 








7-1, 


7-5 






2-7, 


5-1 


TO 5-6, 


5-8, 


2-7, 


5-8, 


t 9-1, 9 


-2 


SEE SSWTCH 




1-7 








2-1 








15-7 








14-27 








14-17 


, 14-18, 15 


-7 TO 


11-9, 


11- 


-16 





-T- 



T FORMAT 


9-5, 9-22 


TAN (FUNCTION) 


il-9 


TANH (FUNCTION) 


11-9 


TAPE DENSITY 


13-9 


TAPF ERRORS 


10-8 


TAPE MARK 


13-14 


TAPE PARITY 


10-1, 10-8, 13 


TAPE PARITY ERRORS 


10-8 


TAPES, EXTERNAL 


13-12, 13-14 


TAPES, INTERNAL 


13-12, 13-13 


TESTING 


1-3 


THREE-BRANCH IF STATEMENT 


6-3 


TIME (SUBROUTINE) 


11-9, U-15 


TRACEBACK INFORMATION 


15-3, 15-20 


TRAILS (SUBROUTINE) 


11-9 


TRANSFER OF CONTROL 


6-1 TO 6-4, 6- 


TPEE 


8-1 


TYPE CONVERSION 


SEE MIXED-MODE 


TYPE DECLARATION STATEMENTS 


5-1 


TYPF, FUNCTION 


7-7 


TYPES OF VARIABLES 


3-6, 5-1, 9-5, 



TO 13-12 



7, 7-5, 7-8, 7-9, 14-28 



A-l 



-U- 



UNCONDITIONAL GO TO STATEMENT 6-1 

UNOEFINFD PILE OR MEDIUM 15-26 

UNDERFLOW 4-5 

UNIT NUMBEP 10=1, 13=2 

UNIT RECORD 1Q-1, 13-11, 13-13, 13-14 

UNLIMITED FORMAT GROUPS 9-25 

UNSATISFIED REFERENCES 14-23 

-V- 

VARIABLE DIMENSIONS 5-3, 7-11 

VARIABLE FORMATS 9-27, 10-13 

VARIABLES 2-5 

WARNINGS SEE DIAGNOSTICS 

WECS (SUBROUTINE) 11-9 

WORD STRUCTURE A-l 

WRDISK (SUBROUTINE) 11-9 

WRITE STATEMENTS 10-3, 10-4 

-X- 

X FORMAT 9-5, 9-19 

XPCL (SUBROUTINE) 11-9, IW6 

-Z- 

Z FORMAT 9-23 
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